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Appendix  A  US  Flag  and  Foreign  Flag  MSO  Risk-Based  Ranking  Results 


Section  A.l  contains  the  results  for  U.S.  Flag  district  level  RBRs,  Section  A.2  contains  the 
results  for  foreign  flag  district  level  RBRs,  Section  A.3  contains  the  results  for  the  U.S.  flag 
MSO  RBRs,  and  Section  A.4  contains  the  results  for  the  foreign  flag  MSO  RBRs.  The  risk- 
based  ranking  results  in  this  appendix  are  expressed  as  absolute  risk,  as  illustrated  in  Table  2.2. 
These  absolute  iinportance  measures  have  not  be  normalized  to  yield  relative  risk  rankings  (as 
was  done  in  Section  3.2  for  the  USCG-wide  level  data  aggregation).  Such  relative  rankings 
could  be  directly  developed  from  the  absolute  measures.  However,  the  normalized  rankings 
merely  set  the  importance  results  within  a  convenient  scale  between  0.0  and  1.0.  The  order  of 
rank  between  Level  HI  Intervention  strategies  is  the  same  for  both  absolute  and  normalized 
measures,  and  the  same  insights  regarding  the  importance  of  the  various  Level  III  Intervention 
strategies  to  risk  would  be  derived  from  either  measure. 


A.l  U.S.  Flag  District  Level  Risk-Based  Ranking  Results 


Bin  data  used  in  the  risk-based  ranking  for  district  level  data  aggregation  are  shown  in  Table 
A.  1.1.  The  risk-based  ranking  results  are  shown  in  Tables  A.  1.2  through  A.  1.9  as  follows: 

Table  A.  1.2  -  U.S.  Flag,  District,  Relative  Frequency,  Deaths, 

Table  A.  1.3  -  U.S.  Flag,  District,  Relative  Frequency,  Injuries, 

Table  A.  1.4  -  U.S.  Flag,  District,  Relative  Frequency,  Property  Loss, 

Table  A.  1.5  -  U.S.  Flag,  District,  Relative  Frequency,  Pollution, 

Table  A.  1.6  -  U.S.  Flag,  District,  Casualty  Frequency,  Deaths, 

Table  A.  1.7  -  U.S.  Flag,  District,  Casualty  Frequency,  Injuries, 

Table  A.  1.8  -  U.S.  Flag,  District,  Casualty  Frequency,  Property  Loss, 

Table  A.  1.9  -  U.S.  Flag,  District,  Casualty  Frequency,  Pollution. 


Risk-Based  Ranking  Bin  Data  Summary  -  USCG  Districts,  U.S.  Flag 


Table  A.  1 . 1  Risk-Based  Ranking  Bin  Data  Summary  -  USCG  Districts.  U.S.  Fla 


FREIGHTER_ 80  I  6  I  0.00  I  0.08  I  0.0294  |  0  |  1  I  $200,000 


Table  A.  1.2  Risk-Based  Rankings  -  U.S.  Flag,  District,  Relative  Frequency,  Deaths 


PASSENGER 


Table  A.  1.2  Risk-Baacd  Rankings  -  U.S.  Flag,  District,  Relative  Frequency,  Deaths 


PASSENGER  0.0005  0.0067  0.0000  0.0005  0.0000  0.0000  0.0000  0.0005 


Table  A.  1.3  Risk-Baaed  Rankings  -  U.S.  Flag,  Diatricl,  Relative  Frequency,  Injuriea 


Table  A.  1.4  Risk*Based  Rankings  -  U.S.  Flag,  District,  Relative  Frequency,  Property  Lota 
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Levef  III  Intervention  Strategy  Importance 


Level  in  Intervention  Strategy  Importance 
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Table  A.  1.6  Risk-Based  Rankings  -  U.S.  Flag,  District,  Casualty  Frequency,  Deaths 
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Table  A.  1.7  Risk-Based  Rankings  -  U.S.  Flag,  District,  Casualty  Frequency,  Injuries 
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A-17 


PASSENGER 


A- 19 


Table  A.  1.9  Risk-Based  Rankings  -  U.S.  Flag,  District,  Casualty  Frequency,  Pollution 
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Level  III  Intervention  Strategy  ln^)ortance 
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A.2  Foreign  Flag  District  Level  Risk-Based  Ranking  Results 


Bin  data  used  in  the  risk-based  ranking  for  district  level  data  aggregation  are  shown  in  Table 
A.2.1.  The  risk-based  ranking  results  are  shown  in  Tables  A.2.2  through  A.2.9  as  follows: 

Table  A.2.2  -  Foreign  Flag,  District,  Relative  Frequency,  Deaths, 

Table  A.2.3  -  Foreign  Flag,  District,  Relative  Frequency,  Injuries, 

Table  A.2.4  -  Foreign  Flag,  District,  Relative  Frequency,  Property  Loss, 

Table  A.2.5  -  Foreign  Flag,  District,  Relative  Frequency,  Pollution, 

Table  A.2.6  -  Foreign  Flag,  District,  Casualty  Frequency,  Deaths, 

Table  A.2.7  -  Foreign  Flag,  District,  Casualty  Frequency,  Injuries, 

Table  A.2.8  -  Foreign  Flag,  District,  Casualty  Frequency,  Property  Loss, 

Table  A.2.9  -  Foreign  Flag,  District,  Casualty  Frequency,  Pollution. 


Table  A.2. 1  Risk-Based  Ranking  Bin  Data  Summary  -  USCG  Districts,  Foreign  Flag 


Table  A.2. 1  Risk-Based  Ranking  Bin  Data  Summary  -  USCG  Districts,  Foreign  Flag 
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Table  A.2. 1  Risk-Based  Ranking  Bin  Data  Sununary  -  USCG  Districts,  Foreign  Flag 


FREIGHTER  477  11  0.01  0.02  0.0069 


A-25 


PASSENGER 


Table  A.2.2  Risk-Based  Rankings  -  Foreign  Flag,  District,  Relative  Frequency,  Deaths 
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Table  A.2.3  Risk-Based  Rankings  -  Foreign  Flag,  District,  Relative  Frequency,  Injuries 


PASSENGER 


A-29 


Table  A. 2. 4  Risk-Based  Rankings  -  Foreign  Flag,  District,  Relative  Frequency,  Property  Loss 


PASSENGER 
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Table  A.2.5  Risk-Based  Rankings  -  Foreign  Flag,  District,  Relative  Frequency,  Pollution 
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Table  A.2,6  Risk-Based  Rankings  -  Foreign  Flag,  District,  Casualty  Frequency,  Deaths 
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Table  A. 2, 6  Risk-Based  Rankings  -  Foreign  Flag,  District,  Casualty  Frequency,  Deaths 
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Table  A.2.8  Risk-Based  Rankings  -  Foreign  Flag,  District,  Casualty  Frequency,  Property  Loss 
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Table  A.2.9  Risk-Based  Rankings  -  Foreign  Flag,  District,  Casualty  Frequency,  Pollution 
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Table  A. 2. 9  Risk- Based  Rankings  -  Foreign  Flag,  District,  Casualty  Frequency,  Pollution 
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A. 3  U.S.  Flag  Marine  Safety  Office  Level  Risk-Based  Ranking  Results 

Bin  data  used  in  the  risk-based  ranking  for  district  level  data  aggregation  are  shown  in  Table  A.3.1.  The  risk- 
based  ranking  results  are  shown  in  Tables  A.3.2  through  A.3.9  as  follows: 

Table  A.3.2  -  U.S.  Flag,  MSO,  Relative  Frequency,  Deaths, 

Table  A.3.3  -  U.S.  Flag,  MSO,  Relative  Frequency,  Injuries, 

Table  A.3.4  -  U.S.  Flag,  MSO,  Relative  Frequency,  Property  Loss, 

Table  A.3.5  -  U.S.  Flag,  MSO,  Relative  Frequency,  Pollution, 

Table  A.3.6  -  U.S.  Flag,  MSO,  Casualty  Frequency,  Deaths, 

Table  A.3.7  -  U.S.  Flag,  MSO,  Casualty  Frequency,  Injuries, 

Table  A.3.8  -  U.S.  Flag,  MSO,  Casualty  Frequency,  Property  Low, 

Table  A.3.9  -  U.S.  Flag,  MSO,  Casualty  Frequency,  Pollution. 
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Table  A. 3.1  Risk-Based  Ranking  Bin  Data  Summary  -  Marine  Safety  Offices,  U.S.  Flag 
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Table  A.3. 1  Risk-Based  Ranking  Bin  Data  Summary  -  Marine  Safety  Offices,  U.S.  Flag 


SLM  PASSENGER  145  7  0.0036  0.04828  0.0178  0  2  $1,000 
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Table  A.3.1  Risk-Ba^  Ranking  Bin  Data  Summary  <  Marine  Safety  Offices,  U.S.  Flag 
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I  Table  A.3.1  Risk^Based  Ranking  Bin  Data  Sununary  -  Marine  Safety  Offices,  U.S.  Flag  || 
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Table  A.3,1  Risk-Based  Ranking  Bin  Data  Summary  -  Marine  Safety  Offices,  U.S.  Flag 
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Table  A.3.1  Risk-Based  Ranking  Bin  Data  Summary  -  Marine  Safety  Offices,  U.S.  Flag 


FREIGHTER  136  48  0.0247  0.35294  0.0410  0  26  $54,700  25454 


Table  A.3. 1  Risk-Based  Ranking  Bin  Data  Summary  •  Marine  Safety  Offices,  U.S.  Flag 
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Tabic  A. 3. 3  Risk-Based  Rankings  -  U.S.  Flag,  MSO,  Relative  Frequency,  Injuries 
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Table  A.3.3  Risk-Based  Rankings  -  U.S.  Flag,  MSO,  Relative  Frequency,  Injuries 
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Table  A.3.3  Risk-Based  Rankings  -  U.S.  Flag,  MSO,  Relative  Frequency,  Injuries 
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Table  A.3,4  Risk-Based  Rankings  -  U.S.  Flag,  MSO,  Relative  Frequency,  Property  Loss 
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Table  A.3.5  Risk-Based  Rankings  -  U.S.  Flag,  MSO,  Relative  Frequency,  Pollution 
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Table  A.3.5  Risk-Based  Rankings  -  U.S.  Flag,  MSO,  Relative  Frequency,  Pollution 
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Table  A.3.7  Risk-Based  Rankings  -  U.S.  Flag,  MSO,  Casualty  Frequency,  Injuries 
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Table  A.3.7  Risk-Based  Rankings  -  U.S.  Flag,  MSO,  Casualty  Frequency,  Injuries 
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Table  A.3.9  Risk-Based  Rankings  -  U.S.  Flag,  MSO,  Casualty  Frequency,  Pollution 
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Table  A.3.9  Risk-Based  Rankings  -  U.S.  Flag,  MSO,  Casualty  Frequency,  Pollution 
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A.4  Foreign  Flag  Marine  Safety  Office  Level  Risk-Based  Ranking  Results 


Bin  data  used  in  the  risk-based  ranking  for  district  level  data  aggregation  are  shown  in  Table  A.4.1.  The  risk- 
based  ranking  results  are  shown  in  Tables  A.4.2  through  A.4.9  as  follows: 

Table  A.4.2  -  Foreign  Flag,  MSO,  Relative  Frequency,  Deaths, 

Table  A.4.3  -  Foreign  Flag,  MSO,  Relative  Frequency,  Injuries, 

Table  A.4.4  -  Foreign  Flag,  MSO,  Relative  Frequency,  Property  Loss, 

Table  A.4.5  -  Foreign  Flag,  MSO,  Relative  Frequency,  Pollution, 

Table  A.4.6  -  Foreign  Flag,  MSO,  Casualty  Frequency,  Deaths, 

Table  A.4.7  -  Foreign  Flag,  MSO,  Casualty  Frequency,  Injuries, 

Table  A.4.8  -  Foreign  Flag,  MSO,  Casualty  Frequency,  Property  Loss, 

Table  A.4.9  -  Foreign  Flag,  MSO,  Casualty  Frequency,  Pollution. 


Table  A.4. 1  Risk-Based  Ranking  Bin  Data  Summary  -  Marine  Safety  Offices,  Foreign  Flag 
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Table  A.4. 1  Risk-Based  Ranking  Bin  Data  Summary  -  Marine  Safety  Offices,  Foreign  Flag 
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Table  A.4.1  Risk-Based  Ranking  Bin  Data  Sununary  -  Marine  Safety  Offices,  Foreign  Flag 
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Table  A.4.1  Risk-Based  Ranking  Bin  Data  Summary  -  Marine  Safety  Offices,  Foreign  Flag 
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Table  A.4.1  Risk-Based  Ranking  Bin  Data  Summary  -  Marine  Safety  Offices^  Foreign  Flag 
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Table  A.4.1  Risk-Based  Ranking  Bin  Data  Summary  -  Marine  Safety  Offices,  Foreign  Flag 
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Table  A.4.2  Risk-Based  Rjinkingt  -  Foreign  Flag,  MSP,  Relative  Fi«|ucncy,  Deaths 


«  d  «  5  d  5  d  5  5  d  5  d  2  2  2  2  2  2  2 


j  ooooood 
<S 

a 


5  2  2  2  2  2  2  2  2  2  2  2 


S  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2 


1^  ^  ^9  Cd  Cd  C9  Cd  O  C9  O 

£ 


M  p  ooooooooooooodddddd 

I  I 

V) 

I  I  "i""!  ”l  ~l  ”l  ~l  ~l  ^"l  - 

J  g»  odddddddddddddddddd 

S  ^ 

i  ^ 


s  M  M  H  M  M  c.  5  5  5  5  5  5  2  2  2  2  2  2 


o  o  o  o  o  o  o  o  o  d  d  d  d  d  d  d  d  d  d 


2  ooddddddddddddddddd 


d  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2 


I  i  I  I  I  g  I  I  g  I  i  g  I  I  g  I 

E£i-iCcui>S£H  E£HESNS 


DSSSxxSSI3&ISl3DD^i2^35d 

mcoauuuuuuQQaooQZSsS 


o>  I  o»  I  o>  I  o> 


PASSENGER 


Table  AA,2  Risk-Based  Rankings  -  Foreign  Flag,  MSO,  Relative  Frequency,  Deaths 


FREIGHTER 


Table  A.4.2  Riak-Based  Rankingt  >  Foreign  Flag,  MSO,  Relative  Frequency,  Dcathi 


SSdddddddoddboddbdddd 

s  ^ 

3 


» 

y 


^  ddddddddddddddddddd 


Co  Co  Co  Co  Co,^Co 


Level  III  Intervention  Strategy  ImpoiUnce 


d  d  d  d  d  d  d  d  d  d  d  d  d  d  d 


o  I  o  o 


o  o  o  e  o  o  o  d 


X  ©  d  d  d  d  d  d  d  d  d  d  d  d  d  d 


E  5  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d 


5  o  o  o  o  o  o  o  o  o  o  o  o  o  o  d 


©  o  o  ©  ©  o  o  o  ©  © 


©  ©  ©  © 


O  ®  ®  ®  ®  ®  ®  ®  ®  ®  ®  ®  ^  ®  ®  o 


3  o  o  o  o  ©  o  o  ©  o  ©  ©  ©  o  d  d 


5  d  d  d  d  d  d  d  d  d  d  d  d 


d  d  d  d  d  d  d  d  d  d  d  d  d  d  d 


8iS  gs  as  as  as 
gia^^s^islislia 

sSfSsSjss^ise^isesis 


c  O 
n  M 


I  I  I  SIS  Sji  iisss^js 


t:l  t:  Hi  t^l  I  I 


A-I51 


ALL  MSOf  PASSENGER 


Table  A. 4. 3  Risk-Based  Rankings  -  Foreign  Flag,  MSO,  Relative  Fiequency,  tnjuriea 


FREIGHTER  0.0085  0.0054  0.0000  0.0008 


Level  III  Intervention  Strategy  Impoitnnce 


PASSENGER 


Level  III  Intervention  Strategy  Importance 


BUF  FREIGHTER 


Level  in  Intervention  Strategy  Impoftance 


TANfCER 


ALL  MSOt  FREIGHTER 


FREIGHTER  $229  $146 


Level  ill  Intervention  Strategy  Importance 


«  ** 


S  S  S  S  S  S  S  S  S  8  S  8  8  8  8  8  8  8  8 


8  ^  8  88888888  8  |  888888 


8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8 


8  8  8  8  8  8  8  S  8  8  8  8  o 


S  S  S  e  O I  e 


o|  s  s  s  s  s  s  e  o  s  s  s  s  e  e  e  o  o  p 


a  8  8  8  8  8  8  8  2  8  8  S  8  8  8  8  8  8 


s  s  s  s  e  s  s  s  s  s  s  s  s  s  e  e  e  p  p 


r-  p  I 

8  5 


S  8  S  S  S  2  I  8  i  8 


8  S  8  I  8  8 


&  g 
I  i 


O 

s  « 


Q  S 

H  o 

i  s 


g  g 

Is  i 


g  g 

^  i 


z  S  K  I 
<  pi  5c  < 


I  ° 

Sow 
Z  S  fO 


s 

S  & 
S  o 
2  S 


Si 

O  or 

s  g 

^  I 

a.  H 


J  O 

ffi  tf) 

z 


pjZSZZSSzzzaiGufiMcluKC&fluCL 


PASSENGER 


S  S  S  S  S  S  S  8  S  8  8  8  8  8  8  8  8  § 


8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8 


8  8  8  8  8  8  8  8  8  8  8  2  8  8  8  8  8  9  8 


1  8888888888828888888 
e  «  ^ 

.  ""I 

H _ 

Is  8888888888888888828 

J  K  5 


1  “ 

s  fr 

2  j2 

*K 

•Sl  5 


a  O  o  o  o  o  o  o  o  olo  olo  o|o|olo|o|o 

8  8  8  8  8  8  8  «  «  ^  « 


O  o  o 


o  olo  olo  o  o  o  o  o|o  o|o  p|p 

M  •»  «  «  «  ^ 


8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8 


ooloooooooo^oooooPo 


SSSSSSSSSSSmSSSSS^ 


^  E  S 

S  S  o  ^  § 

s  I  I  s  I 

flu  H  c  A.  H 


8i  s 

P  o 
s 


R  Si 


A-  H 


g  & 

I  § 
i  i 


g  s 

I  i  I 

e  i  3 


g  Si 

H  O  .w* 

I  S  g 

I  i  H 


p  o 

o  u 
S  K 

e  ^ 


ISSujinc^SSwjtofefepHHOUuijij 


Level  III  Intervention  Strategy  Importance 


S  8  8  8  8  8  8  8  8  8  8  8  8 


8  8  8  8 


s 


9 

I 


IS 

m 

s 

I 


8 


8 


CO 


9 


c 

•c 

8 


I 

I 


.s 

t 

a 


o 

lO 

Z 


I 

s 


8 


8 


8 


§1  ^ 


8 


8 


8 


8 


8 


8 


8 


8 


8 


8 


8 


8 


8 


8 


8 


8 


8 


8 


8 


8 


8 


8 


8 


8 


s 


8 


8 


8 


8 


8 


8 


8 


8 


8 


8 


8 


8 


8 


8 


8 


8 


8 


8 


8 


8 


£ 


8 


81  81  §1  8 


8 


I 


8 


8 


8 


8 


8 


8 


8 


8 


VO 


SEA  PASSENGER 


Level  III  Intervention  Strategy  Impoitance 


TANKER 


Level  111  Intervention  Strategy  Impoitance 


S  S  8  S  S  &\  8  Si\  S  S  S  S  S  S  S 


• 

• 

I 

o 

E 

a 

OOiei 

1 

•s 

■J 

s 

s 

s 

8 

8 

8 

8 

© 

4A 

8 

8 

8 

8 

8 

8 

8 

X 

s 

s 

s 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

Fife 

Pievention 

s 

s 

8 

8 

s 

8 

8 

8 

8 

8 

8 

8 

8 

8 

{ 

8  1 

1  .1 

i  1 

>  « 

1 

^  73  — 

•  «:  = 

o  SJ 

(/)  u 

Power  Plant 

o 

4^ 

o 

4A 

o 

4^ 

8 

8 

© 

4^ 

© 

4A 

© 

4A 

© 

4A 

© 

4A 

8 

8 

© 

4A 

8 

© 

4A 

Auxiliary  Sys. 

o 

o 

4^ 

o 

4^ 

8 

O 

© 

© 

© 

4A 

© 

8 

© 

4A 

© 

4A 

8 

8 

© 

4^ 

E 

ml 

Drills 

o 

4^ 

o 

4A 

o 

4A 

O 

4^ 

© 

4A 

© 

4A 

© 

4A 

© 

4^ 

© 

4^ 

© 

4^ 

© 

4^ 

© 

4A 

© 

4^ 

© 

4^ 

© 

4« 

Documents 

s 

s 

s 

© 

8 

8 

© 

4« 

8 

8 

8 

8 

8 

8 

© 

© 

Steering 

o 

o 

4A 

o 

4^ 

O 

4^ 

© 

4A 

© 

4A 

o 

4A 

© 

4A 

© 

4A 

© 

© 

4A 

© 

4A 

© 

4A 

© 

4A 

© 

4A 

U 

s 

s 

o 

4^ 

O 

4A 

1 

8 

1 

8 

8 

8 

8 

© 

4^ 

i 

;  © 

8 

8 

© 

4A 

s 

Service 

FREIGHTER 

PASSENGER 

TANKER 

FREIGHTER 

PASSENGER 

TANKER 

FREIGIfTER 

PASSENGER 

TANKER 

FREIGHTER 

PASSENGER 

TANKER 

FREIGHTER 

PASSENGER 

TANKER 

1 

MSO 

KLN 

•a; 

KEN 

1 

KOD 

KOD 

KOD 

t 

lA 

b 

t/i 

b 

Ui 

VAL 

< 

> 

VAL 

District 

1^ 

r* 

1^ 

1^ 

A-171 


PASSENGER 


vet  in  Intervention  Strategy  Importance 


A- 173 


Table  A. 4. 5  Rtsk-Baaed  Rankings  •  Foreign  Flag,  MSO,  Relative  Frequency,  Pollution 


Level  III  Intervention  Strategy  ImporUnce 


Level  111  Intervention  Strategy  Impoftance 


Level  111  Intervention  Strategy  Ini|N>fttnce 


Level  Ilf  Intervention  Strttegy  Importance 


Level  III  Intervention  Strategy  ImporUiKe 


e  o  o  o  o  ..  e  e  o  e  o  g  o  o  -  o  o 


©  ©  ©  ©  ©  ©  ©  e  ©  ©  ©  ©  ©  ©  ©  ©  ©  ©  © 


I 


o  «  o  o 


0  0^000 


^  I 


1 1 

e  i 


S  Si 

I  i 


^  I 

O.  H 


o  u] 

S  8 


g  i 

o  w 


11 


£  S  ^ 


Si  &  Si 

i  a  g  i 

i  I  I  I 


8i  Si 

g  § 


s  s 
<  < 
a.  h- 


I  § 


S  ki  ^  ^  H  hi  U  U  ^  I  K 


mI  «el  ie|  Ml  mI  mI  m|  m|  mI  Ot  Ol  O 


<  <  < 

C  C  U  U2  U7 
&  IL  M  M  M 


■ 


fnl  r>|  ml  ml  ml  ml  m 


Level  II!  Intervention  Stretegy  Importance 


Level  in  Intervention  Strategy  Importance 


ALL  MSOa  PASSENGER 


Table  A.4.6  Risk-Based  Rankings  -  Foreign  Flag,  MSP,  Casualty  Frequency,  Deatha 


mjjododdddoedooooooooo 


odddddddddddddddddd 

S'  I 

s  & 

Ui 


S  ■§ 

■r  < 


TANKER 


Table  A. 4. 6  Risk-Based  Rankings  -  Foreign  Flag,  MSO,  Casualty  Frequency,  Deaths 


IZ^ooooooooooooooooooo 

I  £ 

S ' - 1— I — I — I — L-J —  ^ 


1 1 


oooodoooooooooooooo 

I  I 

Vi _ 


«>  ^  ddddddddddddddddddd 


I  O 

0Q  CO 


8i  SiSi  gSi  QSi  gg  gS  gg 
«??Sc8zu3cq2SSzESco2iScSznaco 


i:  E  £  £  E  £  £  E 


s  i  g  i  3  g  sii 


SShHHZZZP^O^O^^^-JDDDuu 

<<<55oiSSooo<<<ooog2 

HHaa30aflQfiQfiQuuuoooaBxn:!j!3 


PLA  PASSENGER 


Tabic  A.4.6  Risk-Based  Rankings  -  Foreign  Flag,  MSO,  Casualty  Frequency,  Deaths 


O  o  o  d  dl  d 


Ol  o  o  ol  o  ol  o  ol  o  o 


O  O  O  o 


5  5  S  5  2  2  2  2  2  2  2  2  2  2 


S  0  6  6  6  6  6  2  2  2  2  2  2  2  2  2  2  2  2  2 


B;>©o©o©oo©o66666666 

„  £ 

gl - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - LJ 


go  ooooooooooooodddd 

e  £ 


«  odddddddddddddddd 

s  ,2 
C 

M  S 

-T  < 


o  o  o 


o  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d 


o  o  o 


©  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2 


5  2  2  2  2  2  2  2  2  2 


E  o 

X  z 

o  M] 

I  i 


s 

o 

Z  S 

U  S 

«o  c 

^  1 

fiu  H 


ui  S  8i  Si 

ShcShEEauh 


DD^XXZ^^^UUbiDDD<<<S 

OQmmUUUUUUQQQQQOSSSS 


C^  On  On  On  On  On  On  on  On  On  On  On  On  On  On 


On  On  On  On 


PASSENGER 


Table  A.4.6  Risk-Based  Rankings  -  Foreign  Flag,  MSO,  Casualty  Frequency,  Deaths 


LOS  FREIGHTER 


Level  III  Intervention  Strategy  Importance 


PASSENGER 


Tabic  A. 4. 6  Risk-Based  Rankings  -  Foreign  Flag,  MSO,  Casualty  Frequency,  Deaths 


C^ooeoeieoooooede 
§  ^ 

1 1 - L_I - 1 - 1 - L 


1  I 


bdoddddddoddo© 


S  X 

M  9 

< 


.S  o 

fiQ  M 

s 


gfii  gS  siS  gSi 

^  i  M  i  I  ^  I  p  ^  i  M  I 

CuHEfluHSfiuHESHBSH 


Q  O  D  mJ  ^  ^ 

ooofct:t<<< 


A-191 


Table  A.4.7  Risk-Based  Rankings  -  Foreign  Flag,  MSO,  Casualty  Frequency,  Injuries 


n 

Level  ni  Intervention  Strategy  Impoftance  | 

Other 

0.0000  1 

0.0000  1 

0.0000  1 

d 

II  0000*0 

1  0000*0 

1 

d 

0.0000  1 

d 

0.0000  1 

1  0000*0 

0.0000  1 

1  0000*0 

II  0000*0 

II  0000*0 

1  0000*0 

1  OOOO'O 

M 

8 

<22 

0.0000 

0.0000 

0.0000 

0000*0 

0000*0 

0000*0 

0.0000 

0.0000 

0.0000 

0000*0 

0.0000 

0000*0 

0000*0 

0000*0 

0000*0 

0000*0 

0.0000 

Hull 

OOOO’O 

0000*0 

0.0000 

0.0000 

0.0000 

0.0000 

0.0027 

0.0000 

0000*0 

0.0000 

0.0000 

0000*0 

1 

d 

0000*0 

0000*0 

0.0000 

0000*0 

Fite 

Prevention 

0000*0 

0.0000 

0000*0 

0000*0 

0000*0 

0.0000 

o 

I 

d 

0.0000 

0000*0 

0000*0 

0000*0 

0000*0 

0000  0 

0.0000 

OOOO’O 

0.0000 

0000*0 

Power  Plant 

0000*0 

0.0000 

0.0000 

0000*0 

d 

0000*0 

0.0053 

0000*0 

0.01 10 

0000*0 

0.0000 

0000*0 

0.0000 

0,0000 

0000*0 

0000*0 

0000*0 

Auxiliary  Sys. 

0000*0 

0000*0 

0000*0 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0000*0 

0000*0 

0,0000 

0000*0 

0000*0 

0.0000 

0000*0 

0000*0 

Drills 

0000*0 

0.0000 

0000*0 

0.0063 

0000*0 

0.0000 

0.0053 

0000*0 

0.0037 

0.0000 

0000*0 

0000*0 

0.0078 

0000*0 

0000*0 

0000*0 

0000*0 

Documents 

0000*0 

0000*0 

0000*0 

0000*0 

0000*0 

0.0000 

0000*0 

0.0000 

0000*0 

0000*0 

0000*0 

0000*0 

0000*0 

0000*0 

0000*0 

0000*0 

0000*0 

Steering 

0000*0 

0.0000 

0000*0 

0.0250 

0000*0 

0.0000 

0.0426 

0000*0 

0.0331 

0000*0 

0000*0 

0.0000 

0.0469 

0000*0 

0000*0 

0000*0 

0000*0 

Cargo/Poll. 

0000*0 

0000*0 

0000*0 

0.0188 

0.0000 

0000*0 

0.0559 

0,0000 

0.0735 

0.0000 

0000*0 

0000*0 

0.0313 

0.0000 

0.0000 

0000*0 

0000*0 

Bin 

Service 

FREIGHTER 

PASSENGER 

TANKER 

FREIGHTER 

PASSENGER 

TANKER 

FREIGHTER 

PASSENGER 

TANKER 

FREIGHTER 

PASSENGER 

TANKER 

FREIGHTER 

PASSENGER 

TANKER 

FREIGHTER 

PASSENGER 

MSO 

BOS 

BOS 

BOS 

LIS 

LIS 

LIS 

NYC 

NYC 

NYC 

POM 

POM 

POM 

PRO 

PRO 

PRO 

ALL  MSOs 

ALL  MSOs 

District 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

A-192 


Level  in  Intervention  Strategy  Importance 


PASSENGER 


Table  A.4.7  Risk-Based  Rankings  -  Foreign  Flag,  MSO,  Casualty  Frequency,  Injuries 


PASSENGER 


Level  ni  Intervention  Strategy  Importance 


PASSENGER 


Table  A.4.7  Risk-Based  Rankings  -  Foreign  Flag,  MSO,  Casualty  Frequency,  Injuries 


FREIGHTER 


I 

< 


sea  tanker 


Table  A.4.7  Risk-Based  Rankings  -  Foreign  Flag,  MSO,  Casualty  Frequency,  Injuries 


Table  A.4.8  Risk-Based  Rankings  -  Foreign  Flag,  MSO,  Casualty  Frequency,  Property  Damage 


Tabic  A,4.8  RisIc^Bascd  Rankings  >  Foreign  Flag,  MSP,  Casualty  Frequency,  Property  Damage 

Level  in  Intervention  Strategy  ImporUnce 


FREIGHTER  $669  $426 


Level  in  Intervention  Strategy  Importance 


PASSENGER 


Level  III  Intervention  Strategy  Importance 


PLA  PASSENGER 


PASSENGER 


Level  III  Intervention  Strategy  Importance 


FREIGHTER  $53,102  $61,953  $0  |  $17,701  | $0  |  $8,850  | $0  |  $4,425  | \0  |  $8,850 


Table  A. 4. 8  Risk>Based  Rankings  -  Foreign  Flag,  MSO,  Casualty  Frequency,  Property  Damage 


S 

<s 

I 

< 


Table  A.4.8  Risk-Baaed  Rankings  -  Foreign  Flag,  MSO,  Casualty  Frequency,  Property  Damage 


A-211 


Table  KA,9  Risk-Baaed  Rankings  -  Foreign  Flag,  MSP,  Casualty  Frequency,  Pollution 


Level  m  Intervention  Strategy  Importance 


FREIGHTER 


Level  m  Intervention  Strategy  Importance 


Table  A.4.9  Risk-Based  Rankings  -  Foreign  Flag,  MSO,  Casualty  Frequency,  Pollution 


Level  III  Intervention  Strategy  Importance 


Level  ni  Intervention  Strategy  Importance 


A-221 


Appendix  B  MSMS  SYBASE  Query  Input  And  Ouq>ut  Files 

B.l  Aggregation  Of  Data  For  U.S.  Flag  Deep  Draft  Vessels 

The  logic  of  the  binning  process  illustrated  in  Figure  3.1  is: 

Maritime  Casualty  -  All  CIRT  records  are  queried  for  the  MCCASE  number,  which  is 
matched  against  the  MCCASE  field  in  the  Casualty  Vessel  Involved  Record  Table 
(CTVT)  to  identify  those  CIRT  records  that  involve  vessels.  This  aUows  for  each  specific 
vessel  involved  in  a  particular  casualty  report  to  be  identified  and  counted  as  a  "vessel 
casualty".  All  non-vessel  records  are  filtered  from  further  queries  at  this  point 

Vessel  Flag  -  After  the  CIRT  records  have  been  filtered  based  on  vessel  involvement  they 
are  then  filter  for  flag  against  the  CTVT  and  VIDT  tables  using  the  VKEY  field. 

Casualty  Consequence  -  Four  characteristics  of  maritime  vessel  casualties  have  been 
defined  for  the  purpose  of  aggregating  data.  The  first  characteristic  is  "Vessel",  meaning 
that  the  MCCASE  number  in  a  particular  CIRT  record  has  been  matched  to  one  or  more 
MCCASE  numbers  in  CIVT,  as  discussed  above  under  the  Maritime  Casualty  attribute. 
This  attribute  identifies  each  CIVT  record  as  an  individual  vessel  casualty.  Thus,  if  more 
than  one  vessel  is  involved  in  a  specific  casualty  logged  in  a  particular  CIVT  record  then 
each  such  vessel  is  counted  as  an  individual  vessel  casualty.  This  characteristic  leads  to 
the  calculation  of  high  level  casualty  frequency  rates  that  incorporated  all  vessel  casualties 
regardless  of  the  nature  of  the  consequence.  All  of  the  other  characteristics  represent 
subsets  of  the  set  of  all  vessel  casualties. 

The  next  characteristic  is  "Pollution",  meaning  that  a  vessel  casualty  occurred  that  resulted 
in  a  pollution  incident.  This  characteristic  leads  to  the  calculation  of  vessel  casualty  rates 
based  only  on  vessel  casualties  that  result  in  pollution  incidents.  This  information  is 
collected  by  matching  the  MCCASE  number  in  each  CIRT  casualty  report  with  the 
MCCASE  numbers  in  the  CIVT  and  the  Casualty  Pollution  Details  Record  Table  (CPDT) 
to  identify  pollution  events  that  correspond  to  each  CIRT  casualty  report. 

The  next  characteristic  is  "Death",  meaning  at  least  one  death  occurred  as  the  result  of 
a  vessel  casualty.  This  characteristic  leads  to  the  calculation  of  casualty  frequencies  based 
on  fatalities  only,  yielding  an  estimate  of  "Deaths/Inspection"  frequency.  This 
information  is  collected  by  matching  MCCASE  in  each  CDRT  record  to  the  CIRT  and 
Casualty  Personnel  Casualty  Record  Table  (CPCT)  to  count  the  number  of  Deaths 
resulting  from  the  vessel  casualties. 

The  last  characteristic  is  "Injury",  meaning  that  a  vessel  casualty  resulted  in  at  least 
injury.  This  characteristic  leads  to  the  calculation  of  casualty  frequencies  based  on  non- 
fatal  injuries,  yielding  an  estimate  of  "injuries/inspection"  frequency.  This  information 
is  collected  in  the  same  way  as  for  Deaths.  In  the  event  that  a  particular  casualty 
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involves  both  Deaths  and  injuries,  the  casualty  is  binned  under  both  the  "death"  and 
"injury"  characteristic. 


Vessel  Service  -  The  data  can  be  aggregated  so  that  casualty  frequency  rates  are 
calculated  based  on  the  type  of  service  of  the  vessel. 


Aggregation  Of  Data  For  Districts  and  MSOs 

Figures  3.2  and  3.3  represent  similar  but  more  detailed  aggregation  of  casualty  data.  Figure  3.2 
represents  the  aggregation  of  data  by  the  District  that  last  inspected  a  vessel  before  the 
occurrence  of  a  casualty.  Figure  3.3  represents  the  aggregation  of  data  by  die  MSO  that  last 
inspected  a  vessel  before  the  occurrence  of  a  casualty.  Each  vessel  casualty  recorded  in  CIRT 
was  "assigned"  or  binned  to  the  last  District  and  MSO  where  it  received  an  inspection.  The 
inspecting  District  and  MSO  were  identified  by  comparing  the  casualty  date  in  each  QRT  vessel 
casualty  report  to  the  inspection  dates  for  the  relevant  vessel  in  the  Inspection  Report 
Identification  Table  (IRTT).  In  this  way,  casualty  counts  were  calculated  for  each  Disttict  and 
MSO  based  on  the  location  of  the  last  inspection.  Information  in  QRT  and  IRTT  was  linked 
using  VILT,  VINTAB,  the  Port  Identification  Table  (PORTS),  and  VIDT. 

The  total  number  of  vessel  inspections  conducted  by  each  District  and  MSO  was  calculated  by 
counting  the  number  of  IRIT  records  logged  by  each  District  and  MSO.  The  MSO  for  each  IRTT 
record  was  identified  directly  using  the  UNIT  element  name  in  each  IRTT  record.  The  District 
for  each  IRTT  record  was  identified  by  matching  the  UNIT  element  name  to  its  appropriate 
District  in  PORTS.  No  distinction  was  made  between  the  different  types  of  inspections 
performed.  IRTT  contains  indicator  fields  for  each  type  of  inspection  that  might  be  performed 
by  an  MSO  (e.g.,  Initial  Inspection,  Certificate  Of  Inspection  (COI),  Annual  Reinspection,  Hull 
Inspection).  As  stated  in  the  introduction  of  this  report,  the  MSMS  database  is  not  designed  to 
link  casualties  to  particular  inspection  activities.  Additionally,  a  particular  IRTT  record  could 
have  more  than  one  indicator  marked.  This  would  indicate  a  situation  in  which  a  vessel 
underwent  more  than  one  inspection  at  the  same  time.  Although  some  inspections  are  clearly 
unique  in  terms  of  the  scope  of  inspection  (e.g.,  Hull  Inspection),  other  inspections  (such  as  the 
COI  and  Annual  Reinspection)  may  be  designed  to  consider  similar  risks,  even  if  at  different 
levels  of  scrutiny.  Therefore,  the  casualty  frequency  estimates  here  present  a  high  level  of  data 
aggregation  with  respect  to  the  type  of  inspection  activities  performed.  A  more  detailed 
aggregation  of  vessel  casualty  data  might  be  possible  if  casualty  casual  data  in  the  Casualty  Event 
Record  Table  (CEVT)  could  be  used  to  reliably  identify  the  specific  USCX)  inspections  that  are 
designed  to  cover  the  types  of  events  attributed  to  each  vessel  casualty.  Based  on  discussions 
with  USCG  Marine  Planning  personnel  at  the  May  13,  1994  project  review  meeting,  future 
queries  for  U.S.  flag  inspections  will  focus  only  on  the  COI,  the  Annual  Reinspection,  and  the 
Hull  inspection. 

All  data  queries  were  restricted  to  the  MSMS  database  for  the  time  period  of  January  1991 
through  October,  1993.  Data  consistency  between  the  1980’s  and  the  1990’s  in  IRIT  was  a 


concern.  For  the  time  period  of  1983  to  1990,  q)proximately  114,000  IRIT  records  were  logged. 
For  the  time  period  1991  through  October  1993,  approximately  166,000  records  were  logged. 
This  represents  an  average  of  only  about  14,000  records  annually  during  the  1980’s  versus  over 
40,000  records  annually  during  the  1990’s.  The  focus  of  this  assessment  was  therefore  limited 
to  the  1991  through  1993  time  period.  This  is  consistent  with  the  advent  of  the  use  of  MINMOD 
as  the  repository  of  maritime  casualty  data. 
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B.2  INFORMIX  Query  Files  For  The  Risk-Based  Ranking  Analysis 

This  appendix  contains  the  SQL  programs  used  to  query  the  MSMS  database  and  construct  the 
data  sets  used  in  the  econometric  analysis.  The  programs  are  written  in  INFORMIX  (ISQL)  and 
are  easily  translated  into  other  SQL-based  database  software  that  are  designed  to  manage 
relational  databases  such  as  SYBASE.  Minor  syntax  modifications  may  be  needed  before  these 
programs  can  be  implemented  from  SQL-based  software  other  than  INFORMIX. 

B.2.1  INFORMIX  Preliminary  Queries  For  Setting  Up  INFORMIX  Tables  From  The  MSMS 
MINMOD  Database 


DATABASE  msms 
MAIN 

DEFINE  counter  INT, 

p_brst  RECORD  LIKE  brst.* 

DECLARE  brst_cursor  CURSOR  FOR 
SELECT  ♦  FROM  brst 
FOR  UPDATE 

LET  counter  =  0 

FOREACH  brst_cursor  INTO  p_brst.* 

LET  p_brst.d2bl  =  0 
LET  p_brst.d2b2  =  0 
LET  p_brst.d2b3  =  0 
LET  p_brst.d31  =  0 
LET  p_brst.d32  =  0 
LET  p_brst.d33  =0 
LET  p_brst.d34  =  0 
LET  p_brst.d35  =  0 
LET  p_brst.d36  =  0 
LET  p_brst.d37  =  0 
LET  p_brst.d38  =  0 
LET  p_brst.d39  =0 

IF  p_brsLactivity_typ  =  "POLL  PREV"  THEN 
LET  p_brst.d2bl  =  1.0 
LET  p_brst.d2b2  =1.0 
LET  p_brst.d2b3  =  1.0 
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• 

LET  p_brstd31 
END  IF 

=  1.0 

1 

IF  p_brsLactivity_typ  =  "NAV  SAFETY"  THEN  1 

LET  p_brsLd2bl 

=  1.0 

LET  p_brsLd2b2 

=  1.0 

LET  p_brstd2b3 

=  1.0 

LET  p_brstcl32 

=  1.0 

END  IF 

IF  p_brsLactivity_typ  =  "ANNUAL  EXAMINATION"  THEN 

LET  p_brstd2bl 

=  1.0 

LET  p_brst.d2b2 

=  1.0 

LET  p_brstd2b3 

=  1.0 

END  IF 

IF  p_brstactivity_typ  =  "FIRE  PROT"  THEN 

LET  p_brst.d2bl 

=  1.0 

LET  p_brst.d2b2 

=  1.0 

LET  p_brst.d2b3 
LET  p_brst,d37 

=  1.0 
=  1.0 

END  IF 

IF  p_brsLactivity_typ  =  "MARPOL  REQ"  THEN 

LET  p_brst.d2bl 

=  1.0 

LET  p_brst.d2b2 

=  1.0 

LET  p_brst.d2b3 

=  1.0 

LET  p_brst.d31 

=  0.2 

LET  p_brst.d32 

=  0.2 

LET  p_brst.d33 

=  0.2 

LET  p_brst.d34 

=  0.2 

LET  p_brst.d37 
END  IF 

=  0.2 

IF  p_brsLactivity_typ  =  "LOADLINE"  THEN 

LET  p_brstd2bl 

=  1.0 

LET  p_brst.d2b2 

=  1.0 

LET  p_brst.d2b3 

=  1.0 

LET  p_brsLd33 

=  0.5 

LET  p_brst.d38 
END  IF 

=  0.5 

IF  p_brsLactivity_typ  =  "MANNING"  THEN 

• 

LET  p_brst.d2bl 

=  1.0 
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LET  p_brstd2b2  =1.0 
LET  p_brstd2b3  =  1.0 
LET  p_brsLd33  =1.0 
END  IF 

IF  p_brsLactivity_typ  =  "PASS  FRGT"  THEN 
LET  p_brstd2bl  =  1.0 
END  IF 

IF  p_brsLactivity_typ  =  "CARGO  VENT"  THEN 
LET  p_brst.d2b2  =1.0 
LET  p_brsLd31  =1.0 
END  IF 

IF  p_brsLactivity_typ  =  "CARGO  PIPE"  THEN 
LET  p_brst.d2b2  =  1.0 
LET  p_brst.d31  =  1.0 
END  IF 

IF  p_brsLactivity_typ  =  "ANNUAL  FREIGH"  THEN 
LET  p_brst.d2bl  =  1.0 
END  IF 

IF  p_brsLactivity_typ  =  "DISCREPANCY  FOLLOWUP"  THEN 


LET  p_brst.d2bl 

=  LO 

LET  p_brst.d2b2 

=  1.0 

LET  p_brst.d2b3 

=  1.0 

LET  p_brst.d31 

=  0.1667 

LET  p_brst.d32 

=  0.1667 

LET  p_brst.d33 

=  0.1667 

LET  p_brst.d34 

=  0.1667 

LET  p_brst.d37 

=  0.1667 

LET  p_brsLd39 

=  0.1667 

END  IF 

IF  p_brsLactivity_typ  =  "DOCUMENT  CHEC"  THEN 
LET  p_brst.d2bl  =  1.0 
LET  p_brst.d2b2  =1.0 
LET  p_brst.d2b3  =1.0 
LET  p_brst.d33  =  1.0 
END  IF 

IF  p_brst.activity_typ  =  "MARPOL  V"  THEN 
LET  p_brst.d2bl  =  1.0 


LET  p_brstd2b2 

=  1.0 

LET  p_brstd2b3 

=  1.0 

LET  p_brsLd31 

=  0.333 

LET  p_brstd32 

=  0.333 

LET  p_brsLd33 

=  0.333 

END  IF 

IF  p_brsLactivity_typ  =  'TANK  VESS"  THEN 

LET  p_brstd2b2 

=  1.0 

END  IF 

IF  p_brsLactivity_typ  =  "DISCREP  FLWUP"  THEN 

LET  p_brstd2bl 

=  1.0 

LET  p_brsLd2b2 

=  1.0 

LET  p_brst.d2b3 

=  1.0 

LET  p_brst.d31 

=  0.1667 

LET  p_brst.d32 

=  0.1667 

LET  p_brstd33 

=  0.1667 

LET  p_brst.d34 

=  0.1667 

LET  p_brst.d37 

=  0.1667 

LET  p_brst.d39 

=  0.1667 

END  IF 

IF  p_brsLactivity_typ  =  "MARPOL  GEN"  THEN 

LET  p_brst.d2bl 

=  1.0 

LET  p_brst.d2b2 

=  1.0 

LET  p_brst.d2b3 

=  1.0 

LET  p_brst.d31 

=  0.3333 

LET  p_brst.d32 

=  0.3333 

LET  p_brst.d33 

=  0.3333 

END  IF 

IF  p_brsLactivity_typ  =  "CREW  LIC.  CHK"  THEN 
LET  p_brst.d2bl  =  1.0 
LET  p_brst.d2b2  =1.0 
LET  p_brst.d2b3  =1.0 
LET  p_brst.d33  =1.0 
END  IF 

IF  p_brsLactivity_typ  =  "WS  SYS  MAINTE"  THEN 
END  IF 

IF  p_brsLactivity_typ  =  "MON  SHIP  OIL"  THEN 
END  IF 


IF  p_brstactivity_typ  =  "ANNUAL  SHIP"  THEN 
END  IF 

IF  p_brsLactivity_typ  =  "SOL  TRANS"  THEN 
END  IF 

IF  p_brstactivity_typ  =  "MARPOL  I"  THEN 
LET  p_brstd2bl  =  1.0 
LET  p_brsLd2b2  =  1.0 
LET  p_brsL(i2b3  =1.0 
LET  p_brsLd31  =  0.5 
LET  p_brstd33  =  0.5 
END  IF 

IF  p_brstactivity_typ  =  "IGS"  THEN 
LET  p_brstd2b2  =  1.0 
LET  p_brst.d31  =  1.0 
END  IF 

IF  p_brsLactivity_typ  =  "CONTAIN  INSP"  THEN 
END  IF 

IF  p_brsLactivity_typ  =  "PUMP  ROOM"  THEN 
END  IF 

IF  p_brsLactivity_typ  =  "ANNUAL  CONTAI"  THEN 
LET  p_brst.d2bl  =  1.0 
END  IF 

IF  p_brsLactivity_typ  =  "MARPOL  DIS"  THEN 
END  IF 

IF  p_brstactivity_typ  =  "COW"  THEN 
LET  p_brst.(i2b2  =  1.0 
LET  p_brst.d31  =  1.0 
END  IF 

IF  p_brstactivity_typ  =  "MARPOL  11"  THEN 


LET 

p_brst.d2bl 

=  1.0 

LET 

p_brst.d2b2 

=  1.0 

LET 

p_brst.d2b3 

=  1.0 

LET 

p_brst.d31 

=  0.5 

LET 

p_brst.d33 

=  0.5 
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IF  p_brstactivity_typ  =  "MARPOL  EQU"  THEN 


LET  p_brsLd2bl 

=  1.0 

LET  p_brstd2b2 

=  1.0 

LET  p_brsLd2b3 

=  1.0 

LET  p_brsLd31 

=  0.5 

LET  p_brst.d33 

=  0.5 

END  IF 

IF  p_brsLactivity_typ  =  "ANNUAL  PASSEN"  THEN 
LET  p_brst.d33  =1.0 
END  IF 

IF  p_brsLactivity_typ  =  "ANNUAL  FREIGH  ON"  THEN 
LET  p_brstd2bl  =  1.0 
END  IF 

IF  p_brsLactivity_typ  =  "DISCREP  FLWUP  OWUP"  THEN 


LET  p_brst.d2bl 

=  1.0 

LET  p_brst.d2b2 

=  1.0 

LET  p_brst.d2b3 

=  1.0 

LET  p_brst.d31 

=  0.1667 

LET  p_brst.d32 

=  0.1667 

LET  p_brst.d33 

=  0.1667 

LET  p_brst.d34 

=  0.1667 

LET  p_brst.d37 

=  0.1667 

LET  p_brst.d39 

=  0.1667 

END  IF 

UPDATE  brst 

SET  brst.*  =  p_brst.* 

WHERE  CURRENT  OF  brst_cursor 

LET  counter  =  counter  +  1 

IF  counter  mod  1000  =  0  THEN 
DISPLAY  counter, "  rows  have  been  updated  in  BRST" 
END  IF 

END  FOREACH 


END  MAIN 


DATABASE  msms 
MAIN 

DEFINE  counter  INT, 

p_brst  RECORD  LIKE  brst* 

DECLARE  brst_cursor  CURSOR  FOR 
SELECT  *  FROM  brst 
FOR  UPDATE 

LET  counter  =  0 

FOREACH  brst_cursor  INTO  p_brst  * 

LET  p_brstd2al  =  0 
LET  p_brstd2a2  =  0 
LET  p_brst.d2a3  =  0 

IF  p_brsLactivity_typ  =  "DISCREPANCY  FOLLOWUP"  THEN 
LET  p_brst.(i2bl  =  1 

LET  p_brst.d2b2  =  1 

LET  p_brst.d2b3  =  1 

LET  p_brst.d31  =  1 
LET  p_brst.d32  =  1 
LET  p_brst.d33  =  1 
LET  p_brst.d34  =  1 
LET  p_brst.d37  =  1 
LET  p_brst.d39  =  1 
END  IF 

UPDATE  brst 
SET  brst.*  =  p_brsL* 

WHERE  CURRENT  OF  brst.cursor 

LET  counter  =  counter  +  1 

IF  counter  mod  1000  =  0  THEN 
DISPLAY  counter, "  rows  have  been  updated  in  BRST" 

END  IF 

END  FOREACH 
END  MAIN 
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DATABASE  msms 


MAIN 

DEFINE  counter  INT, 

p_cevt  RECORD  LIKE  cevL* 

DECLARE  cevt_cursor  CURSOR  FOR 
SELECT  *  FROM  cevt 
FOR  UPDATE 

LET  counter  =  0 

FOREACH  cevt_cursor  INTO  p_cevt.* 

LET  p_cevLdtype  =  "0" 

IF  p_cevt.type  =  "POLLUTION"  THEN 
LET  p_cevLdtype  =  "1" 

END  IF 

IF  p_cevt.type  =  "ALLISION"  THEN 
LET  p_cevLdtype  =  "2" 

END  IF 

IF  p_cevt.type  =  "GROUNDING  ACC"  THEN 
LET  p_cevLdtype  =  "2" 

END  IF 

IF  p_cevt.type  =  "LOSS  VES  CNTRL"  THEN 
LET  p_cevLdtype  =  "2" 

END  IF 

IF  p_cevt.type  =  "PERSONNEL  CAS"  THEN 
LET  p_cevLdtype  =  "4" 

END  IF 

IF  p_cevLtype  =  "LOSS  ELEC  POWER"  THEN 
LET  p_cevLdtype  =  "6" 

END  IF 

IF  p_cevt.type  =  "FIRE"  THEN 
LET  p_cevLdtype  =  "7" 

END  IF 

IF  p_cevLtype  =  "SINK"  THEN 
LET  p_cevLdtype  =  "8" 

END  IF 

IF  p_cevt.type  =  "FLOODING"  THEN 
LET  p_cevLdtype  =  "8" 

END  IF 


IF  p_cevttype  =  "STRUCTURAL  FAIL"  THEN 
LET  p_cevtdtype  =  "8" 

END  IF 

LET  p_cevtcounter  =  1 

UPDATE  cevt 
SET  cevt*  =  p_cevt.* 

WHERE  CURRENT  OF  cevt_cursor 

LET  counter  =  counter  +  1 

IF  counter  mod  1000  =  0  THEN 
DISPLAY  counter, "  rows  have  been  updated  in  CEVT' 
END  IF 

END  FOREACH 


END  MAIN 


DATABASE  msms 


MAIN 

DEFINE  counter  INT, 

p_cpct  RECORD  LIKE  cpcL* 

DECLARE  cpct_cursor  CURSOR  FOR 
SELECT  *  FROM  cpct 
FOR  UPDATE 

LET  counter  =  0 

FOREACH  cpct_cursor  INTO  p_cpct* 


LET  p_cpctddead 

=  0 

LET  p_cpct.dinjury 

=  0 

IF  p_cpct.dead  =  "X" 

THEN 

LET  p_cpcLddead 

=  1 

END  IF 

IF  p_cpct.injury  =  "X 

"  THEN 

LET  p_cpctdinjury 

=  1 

END  IF 

UPDATE  cpct 
SET  cpct.*  =  p_cpct.* 

WHE^  CURRENT  OF  cpct_cursor 

LET  counter  =  counter  +  1 

IF  counter  mod  1000  =  0  THEN 
DISPLAY  counter,  "  rows  have  been  updated  in  CPCT" 
END  IF 

END  FOREACH 


END  MAIN 


DATABASE  msms 


MAIN 

DEFINE  counter  INT, 

p_crst  RECORD  LIKE  erst  * 

DECLARE  crst_cursor  CURSOR  FOR 
SELECT  ♦  FROM  erst 
FOR  UPDATE 

LET  counter  =  0 

FOREACH  crst_cursor  INTO  p_crst.* 

LET  p_crsLd2al  =  0 
LET  p_crst.d2a2  =  0 
LET  p_crst.d2a3  =  0 
LET  p_crst.d31  =  0 
LET  p_crst.d32  =  0 
LET  p_crst.d33  =  0 
LET  p_crst.d34  =  0 
LET  p_crst.d35  =  0 
LET  p_crst.d36  =  0 
LET  p_crst.d37  =  0 
LET  p_crst.d38  =  0 
LET  p_crst.d39  =  0 

IF  p_crst.inspect_typ  =  "ANNUAL  EXAMINATION"  THEN 

END  IF 

IF  p_crst.inspect_typ  =  "POLL  PREV"  THEN 
LET  p_crst.d2al  =  1.0 
LET  p_crst.d2a2  =  1.0 
LET  p_crst.d31  =1.0 

END  IF 

IF  p_crst.inspect_typ  =  "LOADLINE"  THEN 
LET  p_crst.d2al  =  1.0 
LET  p_crst.d2a2  =1.0 
LET  p_crst.d2a3  =  1.0 
LET  p_crst.d38  =1.0 

END  IF 
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IF  p_crst.inspect_typ  =  "PASS  FRGT"  THEN 
END  IF 

IF  p_crst.inspect_typ  =  "NAV  SAFETY"  THEN 
LET  p_crst.d2al  =  1.0 
LET  p_crstd2a2  =  1.0 
LET  p_crsLd32  =  1.0 
END  IF 

IF  p_crst.inspect_typ  =  "REINSPECnON"  THEN 


LET  p_crst.d2a2 

=  1.0 

LET  p_crstd31 

=  0.1111 

LET  p_crst.d32 

=  0.1111 

LET  p_crsLd33 

=  0.1111 

LET  p_crst.d34 

=  0.1111 

LET  p_crst.d35 

=  0.1111 

LET  p_crst.d36 

=  0.1111 

LET  p_crst.d37 

=  0.1111 

LET  p_crst.d38 

=  0.1111 

LET  p_crst.d39 

=  0.1111 

END  IF 


IF  p_crst.inspect_typ  = 
LET  p_crst.d2al 
LET  p_crst.d2a2 
LET  p_crst.d31 
END  IF 

IF  p_crst.inspect_typ  = 
LET  p_crst.d2al 
LET  p_crst.(12a2 
LET  p_crst.d2a3 
LET  p_crst.d31 
LET  p_crst.d32 
LET  p_crsLd33 
LET  p_crst.d34 
LET  p_crst.d35 
LET  p_crsLd36 
LET  p_crst.d37 
LET  p_crst.d38 
LET  p_crst.d39 
END  IF 


=  "MARPOL  REQ"  THEN 
=  1.0 
=  1.0 
=  1.0 


=  "ADMIN"  THEN 
=  1.0 
=  1.0 
=  1.0 
=  0.1111 
=  0.1111 
=  0.1111 
=  0.1111 
=  0.1111 
=  0.1111 
=  0.1111 
=  0.1111 
=  0.1111 


IF  p_crst.inspect_typ  =  "CARGO  VENT"  THEN 


LET  p_crstd2al  =  1.0 
LET  p_crstd2a2  =  1.0 
LET  p_crsLd2a3  =  1.0 
LET  p_crst(i31  =  1.0 
LET  p_crst.d38  =  1.0 
END  IF 

IF  p_crstinspect_typ  =  "MANNING"  THEN 
LET  p_crsLd2al  =  1.0 
LET  p_crst.d2a2  =  1.0 
LET  p_crst.d33  =  1.0 
END  IF 

IF  p_crsLinspect_typ  =  "CARGO  PIPE"  THEN 
LET  p_crstd2al  =  1.0 
LET  p_crst.d2a2  =1.0 
LET  p_crst.d31  =1.0 
END  IF 

IF  p_crst.inspect_typ  =  "FIRE  PROT"  THEN 
LET  p_crst.d2al  =  1.0 
LET  p_crst.d2a2  =1.0 
LET  p_crst.d37  =1.0 
END  IF 

IF  p_crst.inspect_typ  =  "HULL  EXAM"  THEN 
LET  p_crst.(12a3  =  1.0 
LET  p_crst.d31  =0.1111 
LET  p_crst.d32  =0.1111 
LET  p_crst.d33  =  0. 1 1 1 1 
LET  p_crst.d34  =0.1111 
LET  p_crst.d35  =  0. 1 1 1 1 
LET  p_crst.d36  =  0. 1 1 1 1 
LET  p_crst.d37  =0.1111 
LET  p_crst.d38  =  0. 1 1 1 1 
LET  p_crst.d39  =  0. 1 1 1 1 
END  IF 

IF  p_crst.inspect_typ  =  "TANK  VESS"  THEN 
END  IF 

IF  p_crst.inspect_typ  =  "DISCREPANCY  FOLLOWUP"  THEN 
END  IF 


IF  p_crsLinspect_typ  =  "DD  EXTEND"  THEN 
LET  p_crsLd2a3  =  1.0 
LET  p_crst.d38  =  1.0 
END  IF 

IF  p_crsLinspect_typ  =  "COC"  THEN 
END  IF 

IF  p_crstinspect_typ  =  "CONTROL  VERIF"  THEN 
END  IF 

IF  p_crst.inspect_typ  =  "SOL  TRANS"  THEN 
END  IF 

IF  p_crst.inspect_typ  =  "DEHCIENCY  CK"  THEN 
LET  p_crst.d2al  =  1.0 
LET  p_crst.d2a2  =  1.0 
LET  p_crst.d2a3  =  1.0 
LET  p_crst.d31  =  0. 1 1 1 1 
LET  p_crst.d32  =0.1111 
LET  p_crst.d33  =0.1111 
LET  p_crst.d34  =  0. 1 1 1 1 
LET  p_crst.d35  =0.1111 
LET  p_crst.d36  =0.1111 
LET  p_crst.d37  =0.1111 
LET  p_crst.d38  =0.1111 
LET  p_crst.d39  =0.1111 
END  IF 

IF  p_crst.inspect_typ  =  "CERTIFICATION"  THEN 
LET  p_crst.d2al  =  1.0 
LET  p_crst.d3 1  =  0. 1 1 1 1 
LET  p_crst.d32  =0.1111 
LET  p_crst.d33  =0.1111 
LET  p_crst.d34  =0.1111 
LET  p_crst.d35  =0.1111 
LET  p_crst.d36  =0.1111 
LET  p_crst.d37  =  0. 1 1 1 1 
LET  p_crsLd38  =  0. 1 1 1 1 
LET  p_crst.d39  =0.1111 
END  IF 

IF  p_crst.inspect_typ  =  "LIFERAFT  SVC"  THEN 
LET  p_crst.d2al  =  1.0 


B-17 


LET  p_crsLd2a2  =  1.0 
LET  p_crsLd39  =  1.0 
END  IF 

IF  p_crstinspect_typ  =  "IGS"  THEN 
LET  p_crst.d2al  =  1.0 
LET  p_crsLd2a2  =  1.0 
LET  p_crsL(i31  =  1.0 
END  IF 


IF  p_crst.inspect_typ  =  "MARPOL  EQU"  THEN 
LET  p_crsLd2al  =  1.0 
LET  p_crst.d2a2  =  1.0 
LET  p_crsLd31  =  1.0 


END  IF 


IF  p_crst.inspecUyp  =  "MARPOLH  SURV”  THEN 
LET  p_crst.d2al  =  1.0 
LET  p_crst.d2a2  =  1.0 
let  p_crst.d31  =1.0 


END  IF 


IF  p_crst.inspect_typ  =  "MARPOL"  THEN 
END  IF 


IF  p_crst.inspect_typ  =  "MARPOL  DIS"  THEN 

END  IF  • 


IF  p_crst.inspect_typ  =  "DAMAGE  SURVEY"  THEN 
LET  p_crst.d2a3  =  1.0 
LET  p_crst.d38  =  1.0 
END  IF 


IF  p_crst.inspect_typ  =  "INITIAL  CERT"  THEN 


LET  p_crst.d2al  =  1.0 
LET  p_crst.d2a2  =  0 
let  p_crst.d2a3  =  0 
LET  p_crst.d3 1  =  0. 1 1 1 1 
LET  p_crsLd32  =0.1111 
let  p_crst.d33  =  0. 1 1 1 1 
LET  p_crst.d34  =0.1111 
LET  p_crst.d35  =  0. 1 1 1 1 
LET  p_crst.d36  =0.1111 
LET  p_crst.d37  =  0. 1 1 1 1 
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LET  p_crstd38  =0.1111 
LET  p_crstd39  =0.1111 
END  IF 

IF  p_crst.inspect_typ  =  "L/S  SVC  OTHER"  THEN 
LET  p_crstd2al  =  1.0 
LET  p_crstd2a2  =  1.0 
LET  p_crst.d39  =1.0 
END  IF 

IF  p_crst.inspect_typ  =  "MACHINERY"  THEN 
LET  p_crst.d2al  =  1.0 
LET  p_crst.d2a2  =  1.0 
LET  p_crst.d2a3  =  1.0 
LET  p_crst.d31  =  0.2 
LET  p_crstd32  =  0.2 
LET  p_crstd35  =  0.2 
LET  p_crst.d36  =  0.2 
LET  p_crst.d37  =  0.2 
END  IF 

IF  p_crst.inspect_typ  =  "CONSTRUCTION"  THEN 
LET  p_crst.d2al  =  1.0 
LET  p_crst.d2a3  =  1.0 
LET  p_crst.d38  =1.0 
END  IF 

IF  p_crst.inspect_typ  =  "WELDER  QUAL"  THEN 
END  IF 

IF  p_crst.inspect_typ  =  "OVERSIGHT"  THEN 
LET  p_crst.d2al  =  1.0 
END  IF 

IF  p_crst.inspect_typ  =  "MARPOLII  TEST"  THEN 
LET  p_crst.d2a2  =  1.0 
LET  p_crsLd31  =1.0 
END  IF 

IF  p_crst.inspect_typ  =  "ANNUAL"  THEN 
END  IF 

IF  p_crst.inspect_typ  =  "PUMP  ROOM"  THEN 
LET  p_crst.d2al  =  1.0 


let  p_crstd2a2  =  1.0 
LET  p_crsLd2a3  =  1.0 
let  p_crsLd31  =0.3333 
LET  p_crsLd35  =0.3333 
LET  p_crst.d38  =0.3333 
END  IF 

IF  p_crsLinspect_typ  =  "CONSTRUCT  0/S"  THEN 
LET  p_crstd2al  =  1.0 
LET  p_crst.d38  =  1.0 
END  IF 

IF  p_crst.inspect_typ  =  "OP  MAN  REVIEW"  THEN 
LET  p_crst.d2al  =  1.0 
LET  p_crsLd2a2  =  1.0 
LET  p_crst.d31  =  1.0 
END  IF 

IF  p_crst.inspect_typ  =  "MARPOL  11"  THEN 
END  IF 

IF  p_crst.inspect_typ  =  "ANNUAL  FREIGH"  THEN 
END  IF 

IF  p_crst.inspect_typ  =  "NLS  SURVEY"  THEN 
LET  p_crst.d2al  =  1.0 
LET  p_crst.d2a2  =  1.0 
END  IF 

IF  p_crst.inspect_typ  =  "MARPOL  V"  THEN 
LET  p_crst.d2al  =  1.0 
let  p_crst.d2a2  =1.0 
LET  p_crst.d31  =  1.0 
END  IF 

IF  p_crst.inspect_typ  =  "INCL  EXP"  THEN 
LET  p_crst.d2al  =  1.0 
LET  p_crst.d38  =  1.0 
END  IF 

IF  p_crst.inspcct_typ  =  "LIFE  JACKET"  THEN 
LET  p_crsLd2al  =  1.0 
LET  p_crst.d2a2  =  1.0 
LET  p_crst.d39  =  1.0 
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END  IF 


IF  p_crstinspect_typ  =  "MARPOL  GEN"  THEN 
END  IF 

IF  p_crstinspect_typ  =  "REFLAGGING"  THEN 
LET  p_crst.(12al  =  1.0 
LET  p_crst(I31  =  0.1 1 1 1 
LET  p_crst.d32  =0.1111 
LET  p_crst.d33  =0.1111 
LET  p_crst.d34  =0.1111 
LETp_crsLd35  =0.1111 
LET  p_crst.d36  =  0. 1 1 1 1 
LET  p_crst.d37  =0.1111 
LET  p_crst.d38  =  0. 1 1 1 1 
LET  p_crst.d39  =0.1111 
END  IF 

IF  p_crst.inspect_typ  =  "FIREnGHTING"  THEN 
LET  p_crst.d2al  =  1.0 
LET  p_crst.d2a2  =1.0 
LET  p_crst.d37  =1.0 
END  IF 

IF  p_crst.inspect_typ  =  "COW"  THEN 
LET  p_crst.d2al  =  1.0 
LET  p_crst.d2a2  =  1.0 
LET  p_crst.d31  =1.0 
END  IF 

IF  p_crst.inspect_typ  =  "ANNUAL  SHIP"  THEN 
END  IF 

IF  p_crst.inspect_typ  =  "POL  PREV  EQUIP"  THEN 
LET  p_crst.d2al  =  1.0 
LET  p_crst.d2a2  =  1.0 
LET  p_crst.d31  =1.0 
END  IF 

IF  p_crst.inspect_typ  =  "SANITARY  INSP"  THEN 
LET  p_crst.d2al  =  1.0 
LET  p_crst.d2a2  =  1.0 
LET  p_crst.d35  =1.0 
END  IF 
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IF  p_crsLinspect_typ  =  "DWT  SURVEY"  THEN 
LET  p_crstd2al  =  1.0 
LET  p_crstd38  =  1.0 
END  IF 


IF  p_crst.inspect_typ  =  "DISCREP  FLWUP"  THEN 
END  IF 


IF  p_crst.inspect_typ  =  "FIRE  PROTECTN"  THEN 
LET  p_crstd2al  =  1.0 
LET  p_crst.d2a2  =  1.0 
LET  p_crst.(i2a3  =  1.0 
LET  p_crst.d37  =  1.0 
END  IF 


IF  p_crst.inspect_typ  =  "ANNUAL  FREIGH  ON"  THEN 
END  IF 


IF  p_crst.inspect_typ  =  "DISCREP  FLWUP  OWUP"  THEN 
END  IF 


IF  p_crst.inspect_typ  =  "SAFETY  EQ  MAT"  THEN 
END  IF 


IF  p_crst.inspect_typ  =  "MON  SHIP  DC"  THEN 
END  IF 


IF  p_crst.inspect_typ  =  "MARPOL  I"  THEN 
END  IF 


IF  p_crst.inspect_typ  =  "CREW  LIC.  CHK"  THEN 
LET  p_crst.d2al  =  1,0 
LET  p_crst.d2a2  =1.0 
LET  p_crst.d33  =1.0 
END  IF 


IF  p_crst.inspect_typ  =  "COA  MARPOL  I"  THEN 
END  IF 


IF  p_crst.inspect_typ  =  "COA  MARPOL  V"  THEN 
END  IF 


IF  p_crst.inspect_typ  =  "COA  MARPOL  II"  THEN 


# 
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UPDATE  erst 
SET  ersL*  =  p_crst* 

WHERE  CURRENT  OF  crst_cursor 

LET  counter  =  counter  +  1 

IF  counter  mod  1000  =  0  THEN 
DISPLAY  counter,  "  rows  have  been  updated  in  CRST" 
END  IF 

END  FOREACH 


END  MAIN 


DATABASE  msms 


MAIN 

DEFINE  counter  INT, 

p_last  RECORD  LIKE  insp.* 

DECLARE  last_cursor  CURSOR  FOR 
SELECT  *  FROM  insp 
FOR  UPDATE 

LET  counter  =  0 

FOREACH  last_cursor  INTO  p_last.* 

IF  pjastservice  =  "FREIGHT  SHIP"  THEN 
LET  pjastservice  =  "FREIGHTER" 

END  IF 

IF  pjastservice  =  "PUBLIC  FREIGHT"  THEN 
LET  pjastservice  =  "FREIGHTER" 

END  IF 

IF  p  Jast.service  =  "TANK  SHIP"  THEN 
LET  pjastservice  =  "TANKER" 

END  IF 

IF  pjast.service  =  "PUB.  TANKSHIP/BARGE"  THEN 
LET  pjastservice  =  "TANKER" 

END  IF 

IF  pjast.service  =  "PASSENGER  SHIP"  THEN 
LET  pjastservice  =  "PASSENGER" 

END  IF 

UPDATE  insp 
SET  insp.*  =  pjast* 

WHERE  CURRENT  OF  last.cursor 

LET  counter  =  counter  +  1 

IF  counter  mod  lOOG  =  0  THEN 
DISPLAY  counter,  "  rows  have  been  updated  in  INSP" 
END  IF 

END  FOREACH 


END  MAIN 


DATABASE  msms 


MAIN 

DEFINE  counter  INT, 

pjast  RECORD  LIKE  last_insp  * 

DECLARE  last_cursor  CURSOR  FOR 
SELECT  *  FROM  last_insp 
FOR  UPDATE 

LET  counter  =  0 

FOREACH  last_cursor  INTO  p_last* 

IF  p_last.service  =  "FREIGHT  SH"  THEN 
LET  pJasLservice  =  "FREIGHTER" 

END  IF 

IF  pjast.service  =  "FREIGHT  SHIP"  THEN 
LET  p_last.service  =  "FREIGHTER" 

END  IF 

IF  pjast.service  =  "PUBLIC  FREIGHT"  THEN 
LET  pjastservice  =  "FREIGHTER" 

END  IF 

IF  p_last.service  =  "TANK  SHIP"  THEN 
LET  pjastservice  =  "TANKER" 

END  IF 

IF  pjast.service  =  "PUB.  TANKSHIP/BARGE"  THEN 
LET  p_last.service  =  "TANKER" 

END  IF 

IF  pjast.service  =  "PASSENGER  SHIP"  THEN 
LET  p_last.service  =  "PASSENGER" 

END  IF 

LET  p_lastcounter  =  1 

UPDATE  lastjnsp 
SET  lastjnsp.*  =  pjast* 

WHERE  CURRENT  OF  last.cursor 

LET  counter  =  counter  +  1 

IF  counter  mod  1000  =  0  THEN 
DISPLAY  counter,  "  rows  have  been  updated  in  LASTJNSP" 


END  FOREACH 


END  MAIN 


B.2.2  INFORMIX  Query  Files  For  The  Risk-Based  Ranking  Analysis  -  US  Flag  Vessels 


File:  per_cas.sql 
Author  Michael  M.  Delleney 

“  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

—  This  file  calculates  the  number  of  deaths  and  injuries  to  be 

—  attributed  to  each  MSO  last  inspecting  the  vessel  which  had  the  casualty. 

“  The  results  are  grouped  by  vessel  service  and  MSO  and  finally  district. 

DROP  TABLE  tl; 

SELECT 

last_insp.dist, 

last_insp.unit, 

last_insp.service, 

last_insp.subject, 

SUM(cpct.ddead)  deaths, 

SUM(cpct.dinjury)  injuries 

FROM 

last_insp, 

cpct 

WHERE 

last_insp.subject  =  cpct.subject 

GROUP  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject 

ORDER  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject 

INTO  TEMP 
tl; 

SELECT 
tl.dist, 
tl.unit[l,3], 
tl. service. 


SUM(tl.deaths)  deaths, 
SUM(tl. injuries)  injuries 
FROM 
tl 

GROUP  BY 
tl.dist, 
tl.unit[l,3], 
tl. service 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service; 


File:  pol_cas.sql 
Author  Michael  M.  Delleney 
--  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

--  This  file  calculates  the  amount  of  damage  to  be  attributed  to  each  MSO 
"  last  inspecting  the  vessel  which  had  the  casualty.  The  results  are 
“  grouped  by  vessel  service  and  MSO  and  finally  district 

DROP  TABLE  tl; 

SELECT 

last_insp.dist, 

last_insp.unit, 

last_insp.service, 

last_insp.subject, 

SUM(cpdt.in_water_spilled  +  cpdLout_water_spilled)  quantity 
FROM 
last_insp, 
cpdt, 
civt 

WHERE 

civt.subject  =  cpdt.subject 
AND  cpdt.subject  =  last_insp.subject 
GROUP  BY 
last_insp.dist, 
last_insp.unit, 
lastjnsp.service, 
last_insp.subject 
ORDER  BY 
lastjnsp.dist, 
last_insp.unit, 
lastjnsp.service, 
last_insp.subject 
INTO  TEMP 
tl; 

SELECT 

tl.dist, 

tl.unit[l,3], 

tl. service, 

SUM(tl. quantity)  quantity 
FROM 
tl 


GROUP  BY 
tl.dist, 

tl.unit[l,3]. 

tl.SCTvice 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service 


File:  prop_cas.sql 
Author.  Michael  M.  Delleney 
"  Date  of  last  revision;  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

-  This  file  calculates  the  dollar  amount  of  damage  to  be  attributed  to 
"  each  MSO  last  inspecting  the  vessel  which  had  the  casualty. 

“  The  results  are  grouped  by  vessel  service  and  MSO  and  finally  district 

-DROP  TABLE  tl; 

SELECT 

last_insp.dist 

last_insp.unit 

last_insp.service, 

lastjnsp.subject 

cirt.total_damage 

FROM 

last_insp, 

civt, 

cirt 

WHERE 

cirt.mccase  =  civtmccase 
AND  civt.subject  =  last_insp.subject 
GROUP  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cirt.tota]_damage 
ORDER  BY 
lastjnsp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject 
INTO  TEMP 
tl; 

SELECT 
tl.dist 
tl.unit[l,3], 
tl. service, 

SUM(tl.total_damage)  total_damage 
FROM 


tl 

GROUP  BY 
tLdist, 

tl.umt[13], 

tl. service 
ORDER  BY 
tLdist, 
tLunit[l,3], 
tLservice; 


File:  cas_mso.sql 
Author:  Michael  M.  Delleney 

—  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

—  Determine  from  LAST_INSP  how  many  casualties  are  to  be  counted  against  the 
~  district/unit  performing  the  last  inspection  prior  to  the  casualty. 

OUTPUT  TO  ../ou^ut/cas_mso.out 
SELECT 

last.insp.dist  district, 

last_insp.unit[l,3]  mso, 
last_insp.scrvice  service, 

SUM(counter)  casualties 

FROM 
last_insp 
GROUP  BY 
last_insp.dist, 
last_insp.unit[  1 ,3] , 
last_insp.service 
ORDER  BY 
last_insp.dist, 
last_insp.unit[l,3], 
last_insp.service 

File:  insp_mso.sql 
Author:  Michael  M.  Delleney 
"  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

”  Determine  from  INSP  how  many  inspections  by  district,  unit,  and  vessel 
"  service  were  performed  on  US  vessels  between  the  years  1992  and  1993 
"  inclusive. 

OUTPUT  TO  ../output^nsp_mso.out 
SELECT 

last_insp.dist  district, 

last_insp.unit[l,3]  mso, 
insp.service  service, 

SUM(insp.counter)  inspections 
FROM 
insp 

GROUP  BY 
last_insp.dist, 
last_insp.unit[l,3]. 
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insp.service 
ORDER  BY 
last.insp.dist, 
last_insp.unit[  1,3]. 
insp.service 


File:  us_in^.sql 
Author  Michael  M.  Delleney 

~  Date  of  last  revision:  16  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

“  This  file  creates  a  new  table  in  the  MSMS  database  called  INSP. 

--  It  brings  data  from  the  tables  PORTS,  IRTT,  and  VBDT  into  one  place. 

—  The  records  in  the  table  represent  all  inspections  performed  on  US 

—  flagged  fiieighters,  tankers,  and  large  passenger  ships  between  the 

“  1990  through  the  most  recent  inspection  listed  in  IRTT.  Only  the 

"  CERT,  HULL  and  REINSPECT  inspection  types  are  used,  ADMIN,  COC,  and  OTHER 

—  were  excluded  from  consideration. 

DROP  TABLE  insp; 

CREATE  TABLE  insp 
(dist  SMALLINT, 

unit  CHAR(5), 

service  CHAR(19), 

flag  CHAR(2), 

vkey  CHAR(IO), 

micase  CHAR(IO), 

insp_typ  CHAR(IO), 

insp_dt  DATE, 

counter  SMALLINT); 

INSERT  INTO  insp 
SELECT 
ports.dist, 
iriLunit, 
vidt.service, 
vidt.flag, 
irit.vkey, 
irilmicase, 
irit.inspect_type, 
irit.dt, 

1 

FROM 

irit, 

ports, 

vidt 

WHERE 

vidt.  vkey  =  irit.  vkey 
AND  irit.unit  =  ports.unit 
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AND  iriLinspect_type  IN  ("CERT",  "HULL",  "REINSPECr') 
AND  iriLdt  >=  "01/01/1990" 

AND  (vidLservice  IN  ("FREIGHT  SHIP",  "PUBUC  FREIGHT", 
"TANK  SHIP",  "PUB.  TANKSHIP/BARGE") 
OR  (vidtservice  in  ("PASSENGER",  "PASSENGER  SHIP") 
AND  vidtnum_pass  >=  100)) 

GROUP  BY 
ports.dist, 
iritunit, 
vidtservice, 
vidtflag, 
iritvkey, 
iritmicase, 
iritinspect_type, 
iritdt 


File:  cnt_vsl.sql 
Author.  Michael  M.  Delleney 
"  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

>•  Finds  and  totals  the  number  of  vessels  involved  in  casualties  and 
“  provides  totals  for  the  MSO  and  SERVICE. 

-DROP  TABLE  tl; 

SELECT 

last_insp.dist, 

last_insp.unit, 

last_insp.service, 

SUM(last_insp.counter)  num_svc 
FROM 
last_insp 
GROUP  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.  service 
ORDER  BY 
last_insp.dist, 
last_insp.unit, 
last_insp. service 
INTO  TEMP 
tl; 

OUTPUT  TO  cnt_vsl.out 
SELECT 
tl.dist, 
tl.unit[l,3], 
tl.  service, 

SUM(tl.num_svc)  num_svc 
FROM 
tl 

GROUP  BY 
tl.dist, 
tl.unit[l,3], 
tl. service 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl.  service; 


OUTPUT  TO  in_cevLout 

File:  counting.sql 
Author  Michael  M.  Delleney 
—  Date  of  last  revision:  26  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 


--  The  purpose  of  the  queries  in  this  file  are  to  determine,  by  MSO,  MIO,  and 
--  service,  how  many  of  the  cases  involving  vessel  casualties  are  listed  in 

-  and  out  of  cevt  Of  those  so  listed  as  being  in  cevt,  how  many  map  to  the 
~  intervention  activities  outlined  in  "Progress  Report  on  Project  3304.3  - 

-  Research  Methods  to  Analyze  the  Relationships  Between  the  Inspection 
“  Boarding  Process  and  the  Office  of  Marine  Safety  Goals:  Task  3.1  - 

“  Intervention  Analysis,  Draft  TTC-1321"  and  how  many  map  to  "other" 

"  activities. 

--  Select  those  entries  in  last_insp  which  are  also  in  cevt. 

SELECT 

dist, 

unit[l,3], 

service, 

SUM(counter)  counter 
FROM 
last_insp 
WHERE 

mccase  IN  (SELECT  mccase  FROM  cevt) 

GROUP  BY 
dist, 

unit[l,3], 
service 
ORDER  BY 
dist, 

unit[l,3], 

service; 

OUTPUT  TO  out_cevt.out 

-  Now  we  want  to  determine  how  many  vessel  casualties  listed  in  last_insp  are 

-  not  also  listed  in  cevt. 

SELECT 

dist, 

unit[l,3], 

service. 


SUM(counter)  counter 
FROM 
last_insp 
WHERE 

mccase  NOT  IN  (SELECT  mccase  FROM  cevt) 

GROUP  BY 
dist, 

unit[l,3], 
service 
ORDER  BY 
dist, 

unit[l,3], 

service; 

OUTPUT  TO  intervene.out 

—  Select  and  count  those  entries  in  last_insp  which  do  not  have  an  "other" 

—  ("0")  entry  in  cevt  but  have  some  other  entry  from  the  set 

SELECT 

dist, 

unit[l,3], 

service, 

SUM (counter)  counter 
FROM 
last_insp 
WHERE 

mccase  IN  (SELECT  mccase  FROM  cevt  WHERE  dtype 
IN  ('T","2","3","4","5","6","7","8","9")) 

GROUP  BY 
dist, 

unit[l,3], 
service, 
counter 
ORDER  BY 
dist, 

unit[l,3], 

service, 

counter, 

OUTPUT  TO  other.out 

”  Select  and  count  those  entries  in  last_insp  which  have  an  "other"  ("0") 
“  entry  in  cevL  Be  sure  and  filter  out  those  entries  that  do,  in  fact 

—  have  intervention  activities  also  listed. 


SELECT 

dist, 

unit[1.3]. 

service, 

SUM(counter)  counter 
FROM 
last_insp 
WHERE 

mccase  IN  (SELECT  mccase  FROM  cevt  WHERE  dtype  IN  ("0")) 
AND  mccase  NOT  IN  (SELECT  mccase  FROM  cevt  WHERE  dtype 
IN("1","2","3",’’4","5","6","7","8","9")) 

GROUP  BY 
dist, 

unit[l,3], 
service 
ORDER  BY 
dist, 

unit[l,3], 

service; 


File:  int_act_l.sql 
Author  Michael  M.  Delleney 

—  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

—  Finds  and  totals  the  number  of  Cargo  Handling/Pollution  Control 
~  intervention  activities  from  cevt 

DROP  TABLE  tl; 

SELECT 

last_insp.dist, 

last_insp.unit, 

last_insp.service, 

last_insp.subject, 

cevtdtype, 

SUM(cevt.counter)  counter 
FROM 
last_insp, 
cevt 

WHERE 

last_insp.mccase  =  cevt.mccase 
AND  cevtdtype  =  "1" 

GROUP  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp. subject, 
cevt.dtype 
ORDER  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevt.dtype 
INTO  TEMP 
tl; 

OUTPUT  TO  int_act_Lout 
SELECT 
tl.dist, 
tl.unit[l,31, 
tl. service, 
tl.dtype, 

SUM(tl  .counter)  counter 


FROM 

tl 

GROUP  BY 
tl.dist, 

tl.unit[l,31. 

tl. service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype; 


# 


File:  int_act_2.sql 
Author.  Michael  M.  Delleney 
--  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

—  Finds  and  totals  the  number  of  Steering/Navigation 
“  intervention  activities  from  cevt 

DROP  TABLE  tl; 

SELECT 

last_insp.dist, 

lastjnsp.unit, 

last_insp.service, 

last_insp.subject, 

cevtdtype, 

SUM(cevt.counter)  counter 
FROM 
last_insp, 
cevt 

WHERE 

last_insp.mccase  =  cevt.mccase 
AND  cevt.dtype  =  "2" 

GROUP  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevt.dtype 
ORDER  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevLdtype 
INTO  TEMP 
tl; 

OUTPUT  TO  int_act_2.out 
SELECT 
tl.dist, 

tl.unit[l,3], 

tl. service, 
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tl.dtypc, 

SUM(tl  .counter)  counter 
FROM 
tl 

GROUP  BY 
tl.dist, 
tl.unit[l,3]. 

tl  .service, 
tLdtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl  .service, 
tl.dtype; 


File:  int_act_3.sql 
Author  Michael  M.  Delleney 

—  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

—  Finds  and  totals  the  number  of  Document/Paperwork 
--  intervention  activities  from  cevL 

DROP  TABLE  tl; 

SELECT 

last_insp.dist, 

last_insp.unit, 

last_insp.service, 

last_insp.subject, 

cevt.dtype, 

SUM(cevt.counter)  counter 
FROM 
lasMnsp, 
cevt 

WHERE 

last_insp.mccase  =  cevt.mccase 
AND  cevt-dtype  =  "3" 

GROUP  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevLdtype 
ORDER  BY 
last_insp.dist, 
lastjnsp.unit, 
last_insp.service, 
last_insp.subject, 
cevtdtype 
INTO  TEMP 
tl; 

OUTPUT  TO  int_act_3.out 
SELECT 
tl.dist, 
tl.unit[l,3], 
tl. service, 


tl.dtype, 

SUM(tl  .counter)  counter 
FROM 
tl 

GROUP  BY 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype; 


File:  int_act_4.sql 
Author  Michael  M.  Delleney 

—  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

—  Finds  and  totals  the  number  of  Drills/Human  Factors 

—  intervention  activities  from  cevL 

DROP  TABLE  tl; 

SELECT 

last_insp.dist, 

lastjnsp.unit, 

last_insp.service, 

lastjnsp.subject, 

cevtdtype, 

SUM(cevt.counter)  counter 

FROM 

last_insp, 

cevt 

WHERE 

last_insp.mccase  =  cevt.mccase 
AND  cevt.dtype  =  "4" 

GROUP  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevtdtype 

ORDER  BY 
last_insp.dist, 
lastjnsp.unit, 
lastjnsp.service, 
lastjnsp.  subject, 
cevt.dtype 

INTO  TEMP 
tl; 

OUTPUT  TO  int_act_4.out 

SELECT 
tl.dist, 
tl.unit[l,3], 
tl. service. 
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tLdtype, 

SUM(tl. counter)  counter 
FROM 
tl 

GROUP  BY 
tl.dist, 

tl.unit[l,3]. 
tl. service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl  .service, 
tl.dtype; 


File:  int_act_5.sql 
Author:  Michael  M.  Delleney 

-  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

“  Finds  and  totals  the  number  of  Auxiliary  Systems 

-  intervention  activities  from  cevt 

DROP  TABLE  tl; 

SELECT 

last_insp.dist, 

last_insp.unit, 

last_insp.service, 

last_insp.subject, 

cevt.dtype, 

SUM(cevt.counter)  counter 

FROM 

last_insp, 

cevt 

WHERE 

last_insp.mccase  =  cevt.mccase 
AND  cevtdtype  =  "5" 

GROUP  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp. subject, 
cevtdtype 

ORDER  BY 
lastjnsp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevtdtype 

INTO  TEMP 
tl; 

OUTPUT  TO  int_act_5.out 

SELECT 
tl.dist, 
tl.unit[l,3], 
tl. service. 


tl.dtypc, 

SUM(tl  .counter)  counter 
FROM 
tl 

GROUP  BY 
tl.dist, 

tl.unit[l,3]. 
tl. service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype; 


File:  int_act_6.sql 
Author  Michael  M.  Delleney 
--  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

—  Finds  and  totals  the  number  of  Power  Plant  intervention  activities  from  cevt. 

DROP  TABLE  tl; 

SELECT 

last_insp.dist, 

lastjnsp.unit, 

last_insp.service, 

last_insp.subject, 

cevLdtype, 

SUM(cevt.counter)  counter 
FROM 
last_insp, 
cevt 

WHERE 

last_insp.mccase  =  cevtmccase 
AND  cevt.dtype  =  "6" 

GROUP  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevt.dtype 
ORDER  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevLdtype 
INTO  TEMP 
tl; 

OUTPUT  TO  int_act_6.out 
SELECT 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype, 


SUM(tl. counter)  counter 
FROM 
tl 

GROUP  BY 
tl.dist, 

tl.unit[l,3]i 

tl. service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype; 


File:  int_act_7.sql 
Author  Michael  M.  Delleney 
—  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

“  Finds  and  totals  the  number  of  Fire  Fighting  and  Prevention 
--  intervention  activities  from  cevt 

DROP  TABLE  tl; 

SELECT 

lastjnsp.dist, 

last_insp.unit, 

last_insp.service, 

last_insp.subject, 

cevtdtype, 

SUM(cevt.counter)  counter 
FROM 
last_insp, 
cevt 

WHERE 

last_insp.mccase  =  cevt.mccase 
AND  cevt.dtype  =  "7" 

GROUP  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
lastjnsp.subject, 
cevtdtype 
ORDER  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevtdtype 
INTO  TEMP 
tl; 

OUTPUT  TO  int_act_7.out 
SELECT 
tl.dist, 
tl.unit[l,3], 
tl  .service, 


tl.dtype, 

SUM(tl. counter)  counter 
FROM 
tl 

GROUP  BY 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype; 


File:  int_act_8.sql 
Author  Michael  M.  Delleney 
"  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

—  Finds  and  totals  the  number  of  HULL  intervention  activities  from  cevt. 

DROP  TABLE  tl; 

SELECT 

last_insp.dist, 

last_insp.unit, 

last_insp.service, 

last_insp.subject, 

cevtdtype, 

SUM(cevt.counter)  counter 
FROM 
last_insp, 
cevt 

WHERE 

last_insp.mccase  =  cevt.mccase 
AND  cevtdtype  =  "8" 

GROUP  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevt.dtype 
ORDER  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevt.dtype 
INTO  TEMP 
tl; 

OUTPUT  TO  int_act_8.out 
SELECT 
tl.dist, 

tl.unit[l,3], 

tl. service, 
tl.dtype, 

SUM(tl  .counter)  counter 


FROM 

tl 

GROUP  BY 
tl.dist, 
tl.unit[l,3]. 

tl  .service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype; 


File:  int_act_9.sql 

—  Author  Michael  M.  Delleney 

"  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

--  Finds  and  totals  the  number  of  Life  Saving 
“  intervention  activities  from  cevL 

DROP  TABLE  tl; 

SELECT 

last_insp.dist, 

last_insp.unit, 

last_insp.seivice, 

lastjnsp.subject, 

cevt.dtype, 

SUM(cevt.counter)  counter 
FROM 
last_insp, 
cevt 

WHERE 

lastjnsp.mccase  =  cevt.mccase 
AND  cevt.dtype  =  "9" 

GROUP  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp. subject, 
cevt.dtype 
ORDER  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevt.dtype 
INTO  TEMP 
tl; 

OUTPUT  TO  int_act_9.out 
SELECT 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype. 


SUM(tl  .counter)  counter 
FROM 
tl 

GROUP  BY 
tLdist, 
tl.unit[l,3]. 

tl. service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype; 


File:  last_insp.sql 
Author  Michael  M.  Delleney 

—  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

--  This  file  creates  a  new  table  in  the  MSMS  database  called  LAST_INSP. 

--  It  determines  which  USCG  activity  performed  the  last  inspection  on  a 

—  vessel  prior  to  a  casualty  listed  in  GIRT  and  CTVT. 

"  The  tables  used  are  INSP,  QVT,  and  CIRT. 

--  Three  temporary  tables  are  created  TINSP,  TINSP_2,  and  TINSP_3. 

--  The  table  INSP  must  be  present  in  MSMS  in  order  for  LAST_INSP  to  be 

--  created.  If  it  is  not  then  run  the  SQL  file  INSP.SQL  contain  in  the  same 

—  directory  as  this  file. 

—  See  each  SELECT  statement  for  information  concerning  what  it  does. 

"  These  are  here  depending  on  whether  the  table  was  created  during  the 

—  current  invocation  of  ISQL  or  not. 

—DROP  TABLE  tinsp; 

—DROP  TABLE  tinsp_2; 

—DROP  TABLE  tinsp_3; 

DROP  TABLE  last_insp; 

CREATE  TABLE  last_insp 
(dist  SMALLINT, 

unit  CHAR(5), 

service  CHAR(19), 

vkey  CHAR(IO), 

micase  CHAR(IO), 

mccase  CHAR(IO), 

subject  CHAR(IO), 

insp_dt  DATE, 

incident_dt  DATE, 
counter  SMALLINT); 

—  This  select  statement  takes  all  vessel  incidents  occurring  in  1992  and 

—  1993  and  extracts  all  records  where  the  vessel  was  inspected  on  or  before 

—  the  casualty  date  and  places  the  results  in  the  temporary  table 

—  TINSP. 

SELECT 

insp.unit, 


civtservice, 

insp.vkey, 

insp.micase, 

civLmccase, 

civtsubject, 

insp.insp_dt, 

ciit.incident_dt 

FROM 

cirt, 

civt, 

insp 

WHERE 

cirt.mccase  =  civtmccase 
AND  civLvkey  =  insp.vkey 

AND  cirLincident_dt  BETWEEN  "01/01/1992"  AND  "12/31/1993" 

AND  insp.insp_dt  <=  cirtincident_dt 
AND  civt.flag  =  "US" 

GROUP  BY 
insp.dist, 
insp.unit, 
civt.service, 
insp.vkey, 
insp.micase, 
civt.mccase, 
civtsubject, 
insp.insp_dt, 
cirt.incident_dt 
ORDER  BY 
insp.dist, 
insp.unit 
civtservice, 
insp.vkey, 
insp.micase, 
civtmccase, 
civtsubject, 
cirt.incident_dt 
INTO  TEMP 
tinsp; 

“  This  SELECT  statement  simply  extracts  the  most  recent  inspection  date 

—  for  a  given  vessel  in  a  particular  accident  and  places  it  into  temporary 

-  table  TINSP_2 


SELECT 


tinsp.subject, 

MAX(tinsp.insp_dt)  insp_dt 
FROM 
tinsp 

GROUP  BY 
tinsp.subject 
INTO  TEMP 
tinsp_2; 

—  If  there  are  more  than  one  inspection  on  a  particular  date  for  a  given 

“  vessel  in  a  given  accident,  then  the  record  with  the  largest  case  number 

—  is  selected  on  the  assumption  that  it  is  the  most  recent  inspection. 

--  TINSP_3  now  contains  only  one  inspection  for  a  particular  ship 

—  involved  in  a  particular  casualty  along  with  the  date  of  its  last 

—  inspection. 

SELECT 

tinsp.subject, 

MAX(tinsp.micase)  micase, 
tinsp.insp_dt 
FROM 
tinsp, 
tinsp_2 
WHERE 

tinsp.subject  =  tinsp_2.subject 
AND  tinsp.insp_dt  =  tinsp_2.insp_dt 
GROUP  BY 
tinsp.subject, 
tinsp.insp_dt 
INTO  TEMP 
tinsp_3; 

—  From  TINSP  which  contains  all  of  the  columns  of  interest  (and  all 

—  inspections  performed  before  the  casualty)  and  TINSP_3  which  contains  the 

—  SUBJECT  (particular  ship  for  a  particular  casualty),  MICASE  (inspection 

—  case  number),  and  INSP_DT  (date  of  the  last  inspection  prior  to  the 

—  casualty)  the  table  LASTJNSP  is  generated  by  comparing  the  two  and 
"  taking  only  those  records  occurring  in  both  tables. 

INSERT  INTO  last_insp 
(dist, 
unit, 
service, 
vkey. 
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micase, 

mccase, 

subject, 

insp_dt, 

incident_dt) 

SELECT 

tinsp.dist, 

tinsp.unit, 

tinsp.service, 

tinsp.vkey, 

tinsp.micase, 

tinsp.mccase, 

tinsp.subject, 

tinsp.insp_dt, 

tinsp.incident_dt 

FROM 

tinsp, 

tinsp_2, 

tinsp_3 

WHERE 

tinsp.subject  =  tinsp_3.subject 
AND  tinsp.micase  =  tinsp_3.micase 
AND  tinsp.insp_dt  =  tinsp_3.insp_dt 
GROUP  BY 
tinsp.dist, 
tinsp.unit, 
tinsp.service, 
tinsp.vkey, 
tinsp.micase, 
tinsp.mccase, 
tinsp.subject, 
tinsp.insp_dt, 
tinsp.incident_dt; 
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File:  per_cas.sql 
Author  Michael  M.  Delleney 

-  Date  of  last  revision:  18  AUG  1994 

~  Environment:  Informix  Online  5.01  and  I-SQL  4.11 

—  This  file  calculates  the  number  of  deaths  and  injuries  to  be 

--  attributed  to  each  MSO  last  inspecting  the  vessel  which  had  the  casualty. 

"  The  results  are  grouped  by  vessel  service  and  MSO  and  finally  district 

DROP  TABLE  tl; 

SELECT 
last_insp.dist 
last_insp.unit 
last_insp.service, 
last_insp.subject 
SUM(cpct.ddead)  deaths, 

SUM(cpct.dinjury)  injuries 

FROM 

last_insp, 

cpct 

WHERE 

last_insp.subject  =  cpct.subject 

GROUP  BY 
last_insp.dist, 
last_insp.unit 
Iast_insp. service, 
last_insp.subject 

ORDER  BY 
last_insp.dist 

last_insp.unit, 

last_insp.service, 

last_insp.subject 

INTO  TEMP 
tl; 

OUTPUT  TO  output/per_cas.out 

SELECT 
tl.dist 
tl.unit[l,3], 
tl.  service, 

SUM(tl. deaths)  deaths, 

SUM(tl. injuries)  injuries 

FROM 


tl 

GROUP  BY 
tLdist, 
tl.unit[l,3]. 

tl. service 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service; 


File:  pol_cas.sql 
Author:  Michael  M.  Delleney 
—  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

“  This  file  calculates  the  amount  of  damage  to  be  attributed  to  each  MSO 
--  last  inspecting  the  vessel  which  had  the  casualty.  The  results  are 
“  grouped  by  vessel  service  and  MSO  and  finally  district 

DROP  TABLE  tl; 

SELECT 

last_insp.dist, 

lastjnsp.unit 

last_insp.service, 

last_insp.subject, 

SUM(cpdtin_water_spilled  +  cpdLout_water_spillcd)  quantity 
FROM 
last_insp, 
cpdt, 
civt 

WHERE 

civtsubject  =  cpdtsubject 
AND  cpdt.subject  =  last_insp.subject 
GROUP  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject 
ORDER  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject 
INTO  TEMP 
tl; 

OUTPUT  TO  ouq)ut/pol_cas.out 
SELECT 
tl.dist 
tl.unit[l,3], 
tl. service, 
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SUM(tl  .quantity)  quantity 
FROM 
tl 

GROUP  BY 
tl.dist, 
tl.unit[l,3]> 

tl. service 
ORDER  BY 
tl.dist, 

tl.unit[l,3]* 
tl. service; 


File:  prop_cas.sqI 
Author  Michael  M.  Delleney 

—  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

--  This  file  calculates  the  dollar  amount  of  damage  to  be  attributed  to 
"  each  MSO  last  inspecting  the  vessel  which  had  the  casualty. 

—  The  results  are  grouped  by  vessel  service  and  MSO  and  finally  district. 

DROP  TABLE  tl; 

SELECT 

lastjnsp.dist, 

last_insp.unit, 

last_insp.service, 

last_insp.subject, 

cirt.total_damage 

FROM 

last_insp, 

civt, 

cirt 

WHERE 

cirt.mccase  =  civt.mccase 
AND  civtsubject  =  last_insp.subject 
GROUP  BY 
lastjnsp.dist, 
last_insp^unit, 
last_insp. service, 
last_insp.  subject, 
cirt.  total_damage 
ORDER  BY 
last_insp.dist, 
last_insp.unit, 
lastjnsp.service, 
last_insp.subject 
INTO  TEMP 
tl; 

OUTPUT  TO  output/prop_cas.out 
SELECT 
tl.dist, 
tl.unit[l,3], 
tl  .service. 


SUM(tl.totaI_damage)  total_damage 
FROM 
tl 

GROUP  BY 
tl.dist, 
tl.unit[l,3], 
tl. service 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service; 


OUTPUT  TO  output/cas_mso.out 


File:  cas.mso.sql 
Author  Michael  M.  Delleney 

“  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

-  Detemune  from  LAST_INSP  how  many  casualties  are  to  be  counted  against  the 

-  district/unit  performing  the  last  inspection  prior  to  the  casualty. 

SELECT 

lastjnsp.dist  district, 

last_insp.unit[l,3]  mso, 
last_insp.service  service, 

SUM(counter)  casualties 

FROM 

last_insp 

GROUP  BY 
last_insp.dist, 
last_insp.unit[l,3], 
last_insp.service 

ORDER  BY 
last_insp.dist, 
last_insp.unit[l,3], 
last_insp.service; 

OUTPUT  TO  output/insp_mso.out 
File:  insp_mso.sql 
Author:  Michael  M.  Delleney 

”  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

-  Determine  from  INSP  how  many  inspections  by  district,  unit,  and  vessel 

-  service  were  performed  on  US  vessels  between  the  years  1992  and  1993 

-  inclusive. 

SELECT 

insp.dist  district, 

insp.unit[l,3]  mso, 

insp.service  service, 

SUM(insp.counter)  inspections 

FROM 

insp 

GROUP  BY 
insp.dist, 
insp.unit[l,3]. 


B-69 


insp.service 
ORDER  BY 
insp.dist, 

insp.unit[l,3]> 

insp.service; 


File:  cnt_vsl.sql 
Author  Michael  M.  Delleney 
—  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

"  Finds  and  totals  the  number  of  vessels  involved  in  casualties  and 
“  provides  totals  for  the  MSO  and  SERVICE. 

DROP  TABLE  tl; 

SELECT 

last_insp.dist, 

last_insp.unit, 

last_insp.service, 

SUMOast_insp.counter)  num_svc 
FROM 
last_insp 
GROUP  BY 
laSt_insp.dist, 
last_insp.unit, 
last_insp.service 
ORDER  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service 
INTO  TEMP 
tl; 

OUTPUT  TO  output/cnt_vsl.out 
SELECT 
tl.dist, 

tl.unit[l,3], 
tl. service, 

SUM(tl.num_svc)  num_svc 
FROM 
tl 

GROUP  BY 
tl.dist, 
tl.unit[l,3], 
tl, service 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service; 


B-71 


OUTPUT  TO  ou^utAn_cevLout 


File:  counting.sql 
Author:  Michael  M.  Delleney 
--  Date  of  last  revision:  26  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 


--  The  puipose  of  the  queries  in  this  file  are  to  determine,  by  MSO,  MIO,  and 
--  service,  how  many  of  the  cases  involving  vessel  casualties  are  listed  in 

—  and  out  of  cevL  Of  those  so  listed  as  being  in  cevt,  how  many  map  to  the 
“  intervention  activities  outlined  in  "Progress  Report  on  Project  3304.3  - 

“  Research  Methods  to  Analyze  the  Relauonships  Between  the  Inspection 

—  Boarding  Process  and  the  Office  of  Marine  Safety  Goals:  Task  3.1  - 

—  Intervention  Analysis,  Draft  TTC-132r'  and  how  many  map  to  "other" 

—  activities. 

“  Select  those  entries  in  last_insp  which  are  also  in  cevt. 

SELECT 

dist, 

unit[l,3], 

service, 

SUM(counter)  counter 
FROM 
last_insp 
WHERE 

mccase  IN  (SELECT  mccase  FROM  cevt) 

GROUP  BY 
dist, 

unit[l,3], 
service 
ORDER  BY 
dist, 

unit[l,3], 

service; 

OUTPUT  TO  output/out_cevLout 

—  Now  we  want  to  determine  how  many  vessel  casualties  listed  in  last_insp  are 

—  not  also  listed  in  cevt. 

SELECT 

dist, 

unit[l,3], 

service. 


SUM(counter)  counter 
FROM 
last_insp 
WHERE 

mccase  NOT  IN  (SELECT  mccase  FROM  cevt) 

GROUP  BY 
dist, 

unit[1.3], 
service 
ORDER  BY 
dist, 

unit[l,3], 

service; 

OUTPUT  TO  output^ntervene.out 

—  Select  and  count  those  entries  in  lastjnsp  which  do  not  have  an  "other" 

—  ("0")  entry  in  cevt  but  have  some  other  entry  from  the  set 

SELECT 

dist, 

unit[l,3], 

service, 

SUM(counter)  counter 
FROM 
last_insp 
WHERE 

mccase  IN  (SELECT  mccase  FROM  cevt  WHERE  dtype 
IN  ("1","2","3","4","5","6","7","8","9")) 

GROUP  BY 
dist, 

unit[l,3], 
service, 
counter 
ORDER  BY 
dist, 

unit[l,3], 

service, 

counter, 

OUTPUT  TO  output/other,  out 

—  Select  and  count  those  entries  in  last_insp  which  have  an  "other"  ("0") 

—  entry  in  cevt  Be  sure  and  filter  out  those  entries  that  do,  in  fact 
“  have  intervention  activities  also  listed. 
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SELECT 

dist, 

unit[l,3], 

service, 

SUM(counter)  counter 
FROM 
last_insp 
WHERE 

mccase  IN  (SELECT  mccase  FROM  cevt  WHERE  dtype  IN  ("0")) 
AND  mccase  NOT  IN  (SELECT  mccase  FROM  cevt  WHERE  dtype 
IN  (" 

GROUP  BY 
dist, 

unit[l,3], 
service 
ORDER  BY 
dist, 

unit[l,3], 

service; 


File:  int_act_l.sql 
Author  Michael  M.  Delleney 
--  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

~  Finds  and  totals  the  number  of  Cargo  Handling/Pollution  Control 
“  intervention  activities  from  cevL 

DROP  TABLE  tl; 

SELECT 

last_insp.dist, 

lastjnsp.unit, 

lastjnsp.service, 

last_insp.subject, 

cevt.dtype, 

SUM(cevt.counter)  counter 
FROM 
last_insp, 
cevt 

WHERE 

last_insp.mccase  =  cevt.mccase 
AND  cevtdtype  =  "1" 

GROUP  BY 
last_insp.dist, 
last_insp.unit, 
lastjnsp.service, 
last_insp.subject, 
cevtdtype 
ORDER  BY 
last_insp.dist, 
last_insp.unit, 
lastjnsp.service, 
lastjnsp.subject, 
cevtdtype 
INTO  TEMP 
tl; 

OUTPUT  TO  outputAnt_act_l.out 
SELECT 
tl  .dist, 
tl.unit[l,3], 
tl.  service, 
tl.dtype, 

SUM(tl.counter)  counter 


FROM 

tl 

GROUP  BY 
tLdist, 

tl.unit[l,3]. 

tl. service, 
tLdtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl.service, 
tLdtype; 


File:  int_act_2.sql 
Author.  Michael  M.  Delleney 

—  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  S.Ol  and  I-SQL  4.11 

—  Finds  and  totals  the  number  of  Steering/Navigation 

—  intervention  activities  firom  cevt. 

DROP  TABLE  tl; 

SELECT 

last_insp.dist, 

last_insp.unit, 

lastjnsp.service, 

last_insp.subject, 

cevLdtype, 

SUM(cevt.counter)  counter 

FROM 

last_insp, 

cevt 

WHERE 

last_insp.mccase  =  cevtmccase 
AND  cevt.dtype  =  "2" 

GROUP  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevt.dtype 

ORDER  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevt,dtype 

INTO  TEMP 
tl; 

OUTPUT  TO  output/int_act_2.out 

SELECT 

tl.dist, 

tl.unit[l,3], 
tl. service, 
tl.dtype. 


SlJM(tl  .counter)  counter 
FROM 
tl 

GROUP  BY 
tl.dist, 

tl.unit[l,31> 

tl. service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype; 


File:  int_act_3.sql 
Author  Michael  M.  Delleney 

—  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5,01  and  I-SQL  4.11 

—  Finds  and  totals  the  number  of  Document/Paperwork 
--  intervention  activities  firom  cevt 

DROP  TABLE  tl; 

SELECT 

last_insp.dist, 

lastjnsp.unit, 

last_insp.service, 

last_insp.subject, 

cevt-dtype, 

SUM(cevt.counter)  counter 
FROM 
last_insp, 
cevt 

WHERE 

last_insp.mccase  =  cevt.mccase 
AND  cevtdtype  =  "3" 

GROUP  BY 
last_insp.dist, 
lastjnsp.unit, 
last_insp. service, 
last_insp.subject, 
cevt.dtype 
ORDER  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
lastjnsp.subject, 
cevtdtype 
INTO  TEMP 
tl; 

OUTPUT  TO  output/int_act_3.out 
SELECT 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype. 
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SUM(tl  .counter)  counter 
FROM 
tl 

GROUP  BY 
tLdist, 
tl.unit[l,3], 
tl. service, 
tLdtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype; 


File:  int_act_4.sql 
Author  Michael  M.  Delleney 

—  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

—  Finds  and  totals  the  number  of  Drills/Human  Factors 

—  intervention  activities  from  cevL 

DROP  TABLE  tl; 

SELECT 

lastjnsp.dist, 

last_insp.unit, 

iast_insp.service, 

last_insp.subject, 

cevt-dtype, 

SUM(cevt.counter)  counter 

FROM 

last_insp, 

cevt 

WHERE 

last_insp.mccase  =  cevt.mccase 
AND  cevt.dtype  =  ”4" 

GROUP  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevt.dtype 

ORDER  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevt.dtype 

INTO  TEMP 
tl; 

OUTPUT  TO  output^nt_act_4.out 

SELECT 

tl.dist, 

tl.unit[l,3], 

tl. service, 
tl.dtype. 
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SlJM(tLcounter)  counter 
FROM 
tl 

GROUP  BY 
tl.dist, 

tl.unit[l,3]> 

tl. service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl  .service, 
tl.dtype; 


File:  int_act_5.sql 
Author  Michael  M.  Delleney 
"  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

--  Finds  and  totals  the  number  of  Auxiliary  Systems 
--  intervention  activities  from  cevt 

DROP  TABLE  tl; 

SELECT 

last_insp.dist, 

last_insp.unit, 

last_insp.service, 

last_insp.subject, 

cevtdtype, 

SUM(cevt.counter)  counter 
FROM 
last_insp, 
cevt 

WHERE 

last_insp.mccase  =  cevtmccase 
AND  cevt.dtype  =  "5" 

GROUP  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevtdtype 
ORDER  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevtdtype 
INTO  TEMP 
tl; 

OUTPUT  TO  outpul/int_act_5.out 
SELECT 
tl.dist 
tl.unit[l,3], 
tl. service, 
tl.dtype, 


SlJM(tl.counter)  counter 
FROM 
tl 

GROUP  BY 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tLdtype; 


File;  int_act_6.sql 
Author  Michael  M.  Delleney 
--  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

--  Finds  and  totals  the  number  of  Power  Plant  intervention  activities  from  cevt 

DROP  TABLE  tl; 

SELECT 

last_insp.dist, 

last_insp.unit, 

last_insp.service, 

last_insp.subject, 

cevLdtype, 

SUM(cevt.counter)  counter 
FROM 
last_insp, 
cevt 

WHERE 

last_insp.mccase  =  cevtmccase 
AND  cevtdtype  =  "6" 

GROUP  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.  service, 
lastjnsp.subject, 
cevtdtype 
ORDER  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevtdtype 
INTO  TEMP 
tl; 

OUTPUT  TO  ouq)ut/int_act_6.out 
SELECT 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype, 

SUM  (tl. counter)  counter 


FROM 

tl 

GROUP  BY 
tLdist, 

tl.unit[l,3}> 
tl  .service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tLdtype; 


FUe:  int_act_7.sql 
Author  Michael  M.  Delleney 
--  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

—  Finds  and  totals  the  number  of  Fire  Fighting  and  Prevention 

—  intervention  activities  from  cevL 

DROP  TABLE  tl; 

SELECT 

last_insp.dist, 

last_insp.unit, 

last_insp.service, 

lastjnsp.subject, 

cevt.dtype, 

SUM(cevt.counter)  counter 
FROM 
last_insp, 
cevt 

WHERE 

lastjnsp.mccase  =  cevtmccase 
AND  cevt.dtype  =  "7" 

GROUP  BY 
last_insp.dist, 

Iast_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevtdtype 
ORDER  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevtdtype 
INTO  TEMP 
tl; 

OUTPUT  TO  output/int_act_7.out 
SELECT 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype. 


SUM(tl.counter)  counter 
FROM 
tl 

GROUP  BY 
tl.dist, 

tl.unit[l,31t 

tl. service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl  .service, 
tl.dtype; 


File:  int_act_8.sql 
Author  Michael  M.  Delleney 
—  Date  of  last  revision;  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

--  Finds  and  totals  the  number  of  HULL  intervention  activities  from  cevt. 

DROP  TABLE  tl; 

SELECT 

last_insp.dist, 

last_insp.unit, 

last_insp.service, 

last_insp.subject, 

cevtdtype, 

SUM(cevt.counter)  counter 
FROM 
last_insp, 
cevt 

WHERE 

last_insp.mccase  =  cevt.mccase 
AND  cevt.dtype  =  "8" 

GROUP  BY 
last_insp.dist, 
last_insp.unit, 
lastjnsp.service, 
lastjnsp.subject, 
cevt.dtype 
ORDER  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevLdtype 
INTO  TEMP 
tl; 

OUTPUT  TO  output/int_act_8.out 
SELECT 
tl.dist, 
tl.unit[l,3], 
tl  .service, 
tl.dtype, 

SUM(tl. counter)  counter 
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FROM 

tl 

GROUP  BY 
tl.dist, 

tl.unit[l,3]> 

tl  .service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype; 


File:  int_act_9.sql 
Author  Michael  M.  Delleney 
"  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

*-  Finds  and  totals  the  number  of  Life  Saving 
--  intervention  activities  from  cevt 

DROP  TABLE  tl; 

SELECT 

lastjnsp.dist, 

last_insp.unit, 

lastjnsp.service, 

last_insp.subject, 

cevtdtype, 

SUM(cevt.counter)  counter 
FROM 
last_insp, 
cevt 

WHERE 

last_insp.mccase  =  cevt.mccase 
AND  cevtdtype  =  "9" 

GROUP  BY 
last_insp.dist, 
last_insp.unit, 
last_insp. service, 
last_insp.subject, 
cevtdtype 
ORDER  BY 
last_insp.dist, 
last_insp.unit, 
lastjnsp.service, 
last_insp.subject, 
cevLdtype 
INTO  TEMP 
tl; 

OUTPUT  TO  output/int_act_9.out 
SELECT 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype. 


SUM(tl  .counter)  counter 
FROM 
tl 

GROUP  BY 
tUdist, 

tl.unit[l,3]> 

tl, service, 
tl.dtype 
ORDER  BY 
tl.dlst, 
tl.unit[l,3], 
tl. service, 
tl.dtype; 


B,2.4  INFORMIX  Query  Files  For  The  Risk-Based  Ranking  Analysis  -  Foreign  Flag  Vessels 


File:  per_cas.sql 
Author  Michael  M.  Delleney 

—  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

"  This  Ele  calculates  the  number  of  deaths  and  injuries  to  be 
“  attributed  to  each  MSO  last  inspecting  the  vessel  which  had  the  casualty. 

—  The  results  are  grouped  by  vessel  service  and  MSO  and  finally  district 

DROP  TABLE  tl; 

SELECT 

Iast_insp.dist, 

last_insp.unit, 

last_insp.service, 

last_insp.subject, 

SUM(cpct.ddead)  deaths, 

SUM(cpct.dinjury)  injuries 
FROM 
last_insp, 
cpct 

WHERE 

last_insp.subject  =  cpct.subject 
GROUP  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp. subject 
ORDER  BY 
last_insp.dist, 
last_insp.unit, 

Iast_insp.service, 
last_insp.subject 
INTO  TEMP 
tl; 

OUTPUT  TO  output/per_cas.out 
SELECT 
tl.dist, 
tl.unit[l,3], 
tl. service, 

SUM(tl. deaths)  deaths. 


SlJM(tl  .injuries)  injuries 
FROM 
tl 

GROUP  BY 
tl.dist, 

tl.unit[l,3]» 

tl. service 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl  .service; 


File:  pol_cas.sql 
Author  Michael  M.  Delleney 

—  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

—  This  file  calculates  the  amount  of  damage  to  be  attributed  to  each  MSO 
--  last  inspecting  the  vessel  which  had  the  casualty.  The  results  are 

--  grouped  by  vessel  service  and  MSO  and  finally  district 

DROP  TABLE  tl; 

SELECT 

lastjnsp.dist 

last_insp.unit 

last_insp.service, 

last_insp.subject, 

SUM(cpdt.in_water_spilled  +  cpdLout_water_spilled)  quantity 
FROM 
last_insp, 
cpdt, 
civt 

WHERE 

civtsubject  =  cpdtsubject 
AND  cpdt.subject  =  last_insp.subject 
GROUP  BY 
last_insp.dist 
last_insp.unit 
last_insp. service, 
last_insp.  subject 
ORDER  BY 
last_insp.dist 
last_insp.unit 
last_insp.service, 
last_insp.subject 
INTO  TEMP 
tl; 

OUTPUT  TO  output/pol_cas.out 
SELECT 
tl.dist 
tl.unit[l,3], 
tl. service, 

SUM(tl. quantity)  quantity 
FROM 


tl 

GROUP  BY 
tl.dist, 
tl.unit[l,3], 
tl. service 

ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service 


File:  prop_cas.sql 
Author  Michael  M.  Delleney 

"  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

—  This  file  calculates  the  dollar  amount  of  damage  to  be  attributed  to 

—  each  MSO  last  inspecting  the  vessel  which  had  the  casualty. 

~  The  results  are  grouped  by  vessel  service  and  MSO  and  finally  district. 

-DROP  TABLE  tl; 

SELECT 
last_insp.dist, 
lastjnsp.unit, 
last_insp.service, 
last_insp.subject, 
cirt.  total_damage 

FROM 

last_insp, 

civt, 

cirt 

WHERE 

cirt.mccase  =  civt.mccase 

AND  civtsubject  =  lastjnsp.subject 

GROUP  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cirt.totaI_damage 

ORDER  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject 

INTO  TEMP 

tl; 

OUTPUT  TO  output/prop_cas.out 

SELECT 
tl.dist, 
tl.unit[l,3], 
tl. service, 

SUM(tl.total_damage)  total_damage 


FROM 

tl 

GROUP  BY 
tLdist, 

tl.unit[l,3], 
tl. service 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service; 


OUTPUT  TO  output/cas.mso.out 
File:  cas_mso.sql 
Author  Michael  M.  Delleney 
--  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 


—  Determine  from  LAST_INSP  how  many  casualties  are  to  be  counted  against  the 
--  district/unit  performing  the  last  inspection  prior  to  the  casualty. 


SELECT 
last_insp.dist 
last_insp.unit[l,3] 
last_insp.service 
SUM(counter) 
FROM 
last_insp 
GROUP  BY 
last_insp.dist, 
last_insp.unit[  1 ,3] , 
last_insp.service 
ORDER  BY 
last_insp.dist, 

last_insp.unit[l,3], 

last_insp.service; 


district, 

mso, 

service, 

casualties 


OUTPUT  TO  output/insp_mso.out 


File:  insp_mso.sql 
Author  Michael  M.  Delleney 
~  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

—  Determine  from  INSP  how  many  in^)ections  by  district,  unit,  and  vessel 
--  service  were  performed  on  US  vessels  between  the  years  1992  and  1993 
--  inclusive. 

SELECT 

insp.dist  district, 

insp.unit[l,3]  mso, 

insp.service  service, 

SUM(insp.counter)  inspections 
FROM 
insp 

GROUP  BY 
insp.dist, 
insp.unit[l,3], 
insp.service 
ORDER  BY 
insp.dist, 
insp.unit[l,3], 
insp.service; 


File:  pcr_cas.sql 
Author  Michael  M.  Delleney 

-  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

"  This  Ele  calculates  the  number  of  deaths  and  injuries  to  be 
--  attributed  to  each  MSO  last  inspecting  the  vessel  which  had  the  casualty. 

—  The  results  are  grouped  by  vessel  service  and  MSO  and  finally  district 

DROP  TABLE  tl; 

SELECT 
last_insp.dist 
last_insp.service, 
lastjnsp.subject 
SUM(cpct.ddead)  deaths, 

SUM(cpctdinjury)  injuries 
FROM 
lastjnsp, 
cpct 

WHERE 

lastjnsp.subject  =  cpctsubject 
GROUP  BY 
lastjnsp.dist 
lastjnsp.service, 
lastjnsp.subject 
ORDER  BY 
lastjnsp.dist, 
lastjnsp.service, 
lastjnsp.subject 
INTO  TEMP 
tl; 

OUTPUT  TO  output/pers_cas.out 
SELECT 
tl.dist, 
tl. service, 

SUM(tl. deaths)  deaths, 

SUM(tl  .injuries)  injuries 
FROM 
tl 

GROUP  BY 
tl.dist 

tl. service 


ORDER  BY 
tl.dist, 
tl  .service; 


File:  poLcas.sql 
Author.  Michael  M.  Delleney 

—  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

--  This  file  calculates  the  amount  of  damage  to  be  attributed  to  each  MSO 

—  last  inspecting  the  vessel  which  had  the  casualty.  The  results  are 

—  grouped  by  vessel  service  and  MSO  and  finally  district. 

DROP  TABLE  tl; 

SELECT 

lastjnsp.dist, 

last_insp.service, 

last_insp.subject, 

SUM(cpdt.in_water_spilled  +  cpdLout_water_spilled)  quantitv 
FROM 
lastjnsp, 
cpdt, 
civt 

WHERE 

civt.subject  =  cpdt.  subject 
AND  cpdt.subject  =  last_insp.subject 
GROUP  BY 
last_insp.dist, 
last_insp.service, 
lastjnsp.subject 
ORDER  BY 
last_insp.dist, 
last_insp.service, 
lastjnsp.subject 
INTO  TEMP 
tl; 

OUTPUT  TO  ou^ut/pol_cas.out 
SELECT 
tl.dist, 
tl. service, 

SUM(tl. quantity)  quantity 
FROM 
tl 

GROUP  BY 
tl.dist, 
tl  .service 


ORDER  BY 
tl.dist, 
tl. service; 


File:  prop_cas.sql 
Author:  Michael  M.  Delleney 
--  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

--  This  file  calculates  the  dollar  amount  of  damage  to  be  attributed  to 
—  each  MSO  last  inspecting  the  vessel  which  had  the  casualty. 

~  The  results  are  grouped  by  vessel  service  and  MSO  and  finally  district. 

DROP  TABLE  tl; 

SELECT 

lastjnsp.dist, 

last_insp.service, 

last_insp.subject, 

cirt.total_damage 

FROM 

lastjnsp, 

civt, 

cirt 

WHERE 

cirt.mccase  =  civt.mccase 
AND  civtsubject  =  last_insp.subject 
GROUP  BY 
last_insp.dist, 

Iast_insp.service, 
last_insp.  subject, 
cirt.totaLdamage 
ORDER  BY 
last_insp.dist, 
lastjnsp.  service, 
last_insp.subject 
INTO  TEMP 
tl; 

OUTPUT  TO  output/prop_cas,out 
SELECT 
tl.dist, 
tl  .service, 

SUM(tl.total_damage)  total_damage 
FROM 
tl 

GROUP  BY 
tl  .dist. 


tl  .service 
ORDER  BY 
tl.dist, 
tl. service; 


OUTPUT  TO  ou^ut/cas_disLout 


File:  cas_(iist.sql 
Author  Michael  M.  Delleney 
"  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 


"  Determine  from  LAST_INSP  how  many  casualties  are  to  be  counted  against  the 
-  district  performing  the  last  inspection  prior  to  the  casualty. 


SELECT 
last.insp.dist 
last_insp.service 
SUM(counter) 
FROM 
last_insp 
GROUP  BY 
last_insp.dist, 
last_insp. service 
ORDER  BY 
last_insp.dist, 
last_insp.service; 


district, 

service, 

casualties 


OUTPUT  TO  output/insp_dist.out 


File:  insp_dist.sql 
Author:  Michael  M.  Delleney 

—  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

"  Determine  fix)m  INSP  how  many  inspections  by  district  and  vessel 

--  service  were  performed  on  US  vessels  between  the  years  1992  and  1993 

—  inclusive. 

SELECT 
insp.dist 
insp.service 
SUM(insp.counter) 

FROM 
insp 

GROUP  BY 
insp.dist, 
insp.service 

ORDER  BY 
insp.dist, 
insp.service; 


district, 

service, 

inspections 


OUTPUT  TO  output/in_cevLout 


File:  counting.sql 
Author:  Michael  M.  Delleney 
—  Date  of  last  revision:  26  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 


-  The  puipose  of  the  queries  in  this  file  are  to  determine,  by  MSO,  MIO,  and 
--  service,  how  many  of  the  cases  involving  vessel  casualties  are  listed  in 

~  Md  out  of  cevt.  Ctf  those  so  listed  as  being  in  cevt,  how  many  map  to  the 

—  intervention  activities  outlined  in  "ftogress  Report  on  Project  3304.3  - 

—  Research  Methods  to  Analyze  the  Relationships  Between  the  Inspection 

-  Boarding  Process  and  the  Office  of  Marine  Safety  Goals:  Task  3.1  - 

--  Intervention  Analysis,  Draft  TTC-132r'  and  how  many  map  to  "other" 

--  activities. 

--  Select  those  entries  in  last_insp  which  are  also  in  cevt. 

SELECT 

dist, 

service, 

SUM(counter)  counter 
FROM 
last_insp 
WHERE 

mccase  IN  (SELECT  mccase  FROM  cevt) 

GROUP  BY 
dist, 
service 
ORDER  BY 
dist, 
service; 

OUTPUT  TO  output/out_cevLout 

-  Now  we  want  to  determine  how  many  vessel  casualties  listed  in  last_insp  are 
~  not  also  listed  in  cevt. 

SELECT 

dist, 

service, 

SUM(counter)  counter 
FROM 
last_insp 
WHERE 

mccase  NOT  IN  (SELECT  mccase  FROM  cevt) 
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GROUP  BY 
dist, 
service 
ORDER  BY 
dist, 
service; 


OUTPUT  TO  outputAntervene.out 

-  Select  and  count  those  entries  in  lastjnsp  which  do  not  have  an  "other" 

—  ("0")  entry  in  cevt  but  have  some  other  entry  from  the  set 

SELECT 

dist, 

service, 

SUM  (counter)  counter 
FROM 
last_insp 
WHERE 

mccase  IN  (SELECT  mccase  FROM  cevt  WHERE  dtype 
IN  ("  1  ",”2","3","4","5","6","7","8","9")) 

GROUP  BY 
dist, 
service, 
counter 
ORDER  BY 
dist, 
service, 
counter. 


OUTPUT  TO  output/other.out 

--  Select  and  count  those  entries  in  lastjnsp  which  have  an  "other"  ("0") 
“  entry  in  cevt  Be  sure  and  filter  out  those  entries  that  do,  in  fact 
—  have  intervention  activities  also  listed. 


SELECT 

dist, 

service, 

SUM(counter)  counter 
FROM 
lastjn^ 

WHERE 

mccase  IN  (SELECT  mccase  FROM  cevt  WHERE  dtype  IN  ("0")) 
AND  mccase  NOT  IN  (SELECT  mccase  FROM  cevt  WHERE  dtype 
IN  ('T","2","3","4","5","6","7","8","9")) 
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GROUP  BY 
dist, 
service 
ORDER  BY 
dist, 
service; 


File:  int_act_l.sql 

“  Author:  Michael  M.  Delleney 

~  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

-  Finds  and  totals  the  number  of  Cargo  Handling/Pollution  Control 

—  intervention  activities  from  cevt. 

DROP  TABLE  tl; 

SELECT 

last_insp.dist, 

last_insp.service, 

Iast_insp.subject, 

cevt.dtype, 

SUM(cevt.counter)  counter 
FROM 
lastjnsp, 
cevt 

WHERE 

lastjnsp.mccase  =  cevt.mccase 
AND  cevt.dtype  =  "1" 

GROUP  BY 
lastjnsp.dist, 
last_insp.  service, 
last_insp.subject, 
cevtdtype 
ORDER  BY 
last_insp.dist, 
last_insp.service, 
last_insp.subject, 
cevt.dtype 
INTO  TEMP 
tl; 

OUTPUT  TO  output/int_act_l.out 
SELECT 
tl.dist, 
tl  .service, 
tl.dtype, 

SUM(tl. counter)  counter 
FROM 
tl 

GROUP  BY 
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tl.dist, 
tl  .service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl  .service, 
tl.dtype; 


File:  int_act_2.sql 
Author:  Michael  M.  Delleney 

—  Date  of  last  revision:  18  AUG  1994 

Environment:  Infoimix  Online  5.01  and  I-SQL  4.11 

—  Finds  and  totals  the  number  of  Steering/Navigation 

—  intervention  activities  from  cevL 

DROP  TABLE  tl; 

SELECT 

last_insp.dist, 

lastjnsp.service, 

last_insp.subject, 

cevt.dtype, 

SUM(cevt.counter)  counter 

FROM 

last_insp, 

cevt 

WHERE 

last_insp.mccase  =  cevt.mccase 
AND  cevt.dtype  =  "2" 

GROUP  BY 
last_insp.dist, 
last_insp.service, 
last_insp.subject, 
cevtdtype 

ORDER  BY 
lastjnsp.dist, 
last_insp.  service, 
last_insp.subject, 
cevtdtype 

INTO  TEMP 
tl; 

OUTPUT  TO  output/int_act_2.out 

SELECT 
tl.dist, 
tl. service, 
tLdtype, 

SUM(tl. counter)  counter 

FROM 

tl 


GROUP  BY 
tl.dist, 
tl. service, 
tLdtype 
ORDER  BY 
tl.dist, 
tl, service, 
tLdtype; 


File:  int_act_3.sql 
Author  Michael  M.  Delleney 
>•  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

—  Finds  and  totals  the  number  of  Document/Paperwork 

—  intervention  activities  from  cevt 

DROP  TABLE  tl; 

SELECT 
last.insp.dist, 
last_insp.service, 
last_insp.  subject, 
cevt.dtype, 

SUM(ccvt.counter)  counter 
FROM 
last_insp, 
cevt 

WHERE 

last_insp.mccase  =  cevt.mccase 
AND  cevt.dtype  =  "3" 

GROUP  BY 
last_insp.dist, 
last_insp.service, 
last_insp.subject, 
cevt.dtype 
ORDER  BY 
last_insp.dist, 
last_insp.service, 
last_insp.subject, 
cevt-dtype 
INTO  TEMP 
tl; 

OUTPUT  TO  ouq)ut/int_act_3.out 
SELECT 
tl.dist, 
tl. service, 
tl.dtype, 

SUM(tl. counter)  counter 
FROM 
tl 

GROUP  BY 


tl.dist, 
tl. service, 
tLdtype 
ORDER  BY 
tLdist, 
tl.service, 
tLdtype; 


File:  int_act_4.sql 
Author  Michael  M.  Dclleney 
--  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

—  Finds  and  totals  the  number  of  Drills/Human  Factors 

—  intervention  activities  from  cevt. 

DROP  TABLE  tl; 

SELECT 

lastjnsp.dist, 

last_insp.scrvice, 

last_insp.subject, 

cevtdtype, 

SUM(cevt.counter)  counter 
FROM 
last_insp, 
cevt 

WHERE 

lastjnsp.mccase  =  cevt.mccase 
AND  cevt.dtype  =  "4" 

GROUP  BY 
last_insp.dist, 
last_insp. service, 
last_insp.subject, 
cevt.dtype 
ORDER  BY 
lastjnsp.dist, 
last_insp.se  rvice, 
lastjnsp.subject, 
cevt.dtype 
INTO  TEMP 
tl; 

OUTPUT  TO  ou4)ut/int_act_4.out 
SELECT 
tl.dist, 
tl  .service, 
tl.dtype, 

SUM(tl. counter)  counter 
FROM 
tl 

GROUP  BY 
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tl.dist, 
tl  .service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl. service, 
tl.dtype; 


File:  int_act_5.sql 
Author  Michael  M.  Delleney 
--  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  1-SQL  4.11 

—  Finds  and  totals  the  number  of  Auxiliary  Systems 

—  intervention  activities  fiom  cevL 

DROP  TABLE  tl; 

SELECT 

last.insp.dist, 

last_insp.service, 

last_insp.subject, 

cevtdtype, 

SUM(cevt. counter)  counter 
FROM 
last_insp, 
cevt 

WHERE 

last_insp.mccase  =  cevt.mccase 
AND  cevLdtype  =  "5" 

GROUP  BY 
last_insp.dist, 
last_insp. service, 
last_insp.subject, 
cevLdtype 
ORDER  BY 
last_insp.dist, 
last_insp. service, 
last_insp.subject, 
cevt.dtype 
INTO  TEMP 
tl; 

OUTPUT  TO  output^nt_act_5.out 
SELECT 
tl.dist, 
tl  .service, 
tl.dtype, 

SUM(tl  .counter)  counter 
FROM 
tl 

GROUP  BY 
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tl.dist, 
tl. service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl  .service, 
tl.dtype; 


File:  int_act_6.sql 
Author  Michael  M.  Delleney 
“  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 


—  Finds  and  totals  the  number  of  Power  Plant  intervention  activities  from  cevt. 

DROP  TABLE  tl; 

SELECT 

last_insp.dist, 

lastjnsp.service, 

last_insp.subject, 

cevt.dtype, 

SUM(cevt.counter)  counter 
FROM 
last_insp, 
cevt 

WHERE 

lastjnsp.mccase  =  cevt.mccase 
AND  cevt.dtype  =  "6" 

GROUP  BY 
last_insp.dist, 
last_insp.  service, 
lastjnsp.subject, 
cevt.dtype 
ORDER  BY 
lastjnsp.dist, 
lastjnsp.service, 
last_insp. subject, 
cevt.dtype 
INTO  TEMP 
tl; 

OUTPUT  TO  output/int_act_6.out 
SELECT 
tl.dist, 
tl  .service, 
tLdtype, 

SUM(tl. counter)  counter 
FROM 
tl 

GROUP  BY 
tl.dist. 


tl  .service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl. service, 
tl.dtype; 


File:  int_act_7.sql 
Author  Michael  M.  Delleney 

—  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

--  Finds  and  totals  the  number  of  Fire  Fighting  and  Prevention 

—  intervention  activities  from  cevt 

DROP  TABLE  tl; 

SELECT 

last.insp.dist, 

last_insp.service, 

lastjnsp.subject, 

cevtdtype, 

SUM(cevt.counter)  counter 
FROM 
last_insp, 
cevt 

WHERE 

lastjnsp.mccase  =  cevt.mccase 
AND  cevt.dtype  =  "7" 

GROUP  BY 
last_insp.dist, 
last_insp.se  rvice, 
lastjnsp.subject, 
cevt.dtype 
ORDER  BY 
last_insp.dist, 
last_insp.service, 
lastjnsp.subject, 
cevt.dtype 
INTO  TEMP 
tl; 

OUTPUT  TO  ouqjut/int_act_7.out 
SELECT 
tl.dist, 
tl  .service, 
tl.dtype, 

SUM(tl. counter)  counter 
FROM 
tl 

GROUP  BY 


tl.dist, 
tl  .service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl. service, 
tl.dtype; 


File:  int_act_8.sql 
Author:  Michael  M.  Delleney 

—  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  1-SQL  4.11 

-  Finds  and  totals  the  number  of  HULL  intervention  activities  from  cevt. 

DROP  TABLE  tl; 

SELECT 

last_insp.dist, 

last_insp.service, 

last.insp.subject, 

cevt.dtype, 

SUM(cevt.counter)  counter 

FROM 

last_insp, 

cevt 

WHERE 

lastjnsp.mccase  =  cevt.mccase 
AND  cevtdtype  =  "8" 

GROUP  BY 
last_insp.dist, 
last_insp.service, 
last_insp.subject, 
cevt.dtype 

ORDER  BY 
last_insp.dist, 
last_insp.service, 
last_insp.subject, 
cevLdtype 

INTO  TEMP 
tl; 

OUTPUT  TO  oulput^nt_act_8.out 

SELECT 
tl.dist, 
tl. service, 
tl.dtype, 

SUM(tl. counter)  counter 

FROM 

tl 

GROUP  BY 
tl  .dist. 
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tl. service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl  .service, 
tl.dtype; 


~  File:  int_act_9.sql 

Author  Michael  M.  Delleney 
--  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

—  Finds  and  totals  the  number  of  Life  Saving 

—  intervention  activities  from  cevt. 

DROP  TABLE  tl; 

SELECT 

last.insp.dist, 

last_insp.service, 

last_insp.subject, 

cevt.dtype, 

SUM(cevt.counter)  counter 
FROM 
lastjnsp, 
cevt 

WHERE 

lastjnsp.mccase  =  cevt.mccase 
AND  cevtdtype  =  "9" 

GROUP  BY 
last_insp.dist, 
last_insp.service, 
last_insp.subject, 
cevt.dtype 
ORDER  BY 
last_insp.dist, 
last_insp.service, 
iast_insp.subject, 
cevt.dtype 
INTO  TEMP 
tl; 

OUTPUT  TO  output^nt_act_9.out 
SELECT 
tl.dist, 
tl. service, 
tl.dtype, 

SUM(tl  .counter)  counter 
FROM 
tl 

GROUP  BY 


tl.dist, 
tl. service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl. service, 
tl.dtype; 


OUTPUT  TO  output^n_cevtout 
File:  counting.sql 
Author:  Michael  M.  Delleney 
-  Date  of  last  revision:  26  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 


-  The  purpose  of  the  queries  in  this  file  are  to  determine,  by  MSO,  MIO,  and 
~  service,  how  many  of  the  cases  involving  vessel  casualties  are  listed  in 

“  and  out  of  cevL  Of  those  so  listed  as  being  in  cevt,  how  many  map  to  the 
“  intervention  activities  outlined  in  ’’Progress  Report  on  Project  3304.3  - 

-  Research  Methods  to  Analyze  the  Relationships  Between  the  Inspection 
“  Boarding  Process  and  the  Office  of  Marine  Safety  Goals:  Task  3.1  - 

--  Intervention  Analysis,  Draft  TTC-1321"  and  how  many  map  to  "other" 

"  activities. 

"  Select  those  entries  in  lastjnsp  which  are  also  in  cevt. 

SELECT 

dist, 

unit[l,3], 

service, 

SUM(counter)  counter 
FROM 
last_insp 
WHERE 

mccase  IN  (SELECT  mccase  FROM  cevt) 

GROUP  BY 
dist, 

unit[l,3], 
service 
ORDER  BY 
dist, 

unit[l,3], 

service; 

OUTPUT  TO  ouq)ut/out_cevLout 

-  Now  we  want  to  determine  how  many  vessel  casualties  listed  in  last_insp  are 

-  not  also  listed  in  cevt. 

SELECT 

dist, 

unitfl,3]. 
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service, 

SUM(counter)  counter 
FROM 
last_insp 
WHERE 

mccase  NOT  IN  (SELECT  mccase  FROM  cevt) 

GROUP  BY 
dist, 

unit[l,3], 
service 
ORDER  BY 
dist, 

unit[l,3], 

service; 

OUTPUT  TO  output/intervene.out 

”  Select  and  count  those  entries  in  last_insp  which  do  not  have  an  "other" 
--  ("0")  entry  in  cevt  but  have  some  other  entry  from  the  set 


SELECT 

dist, 

unit[l,3], 

service, 

SUM(counter)  counter 
FROM 
lastjnsp 
WHERE 

mccase  IN  (SELECT  mccase  FROM  cevt  WHERE  dtype 
IN  ('T","2","3","4","5","6","7","8","9")) 

GROUP  BY 
dist, 

unit[l,3], 
service, 
counter 
ORDER  BY 
dist, 

unit[l,3], 

service, 

counter, 

OUTPUT  TO  ou^ut/other.out 

"  Select  and  count  those  entries  in  last_insp  which  have  an  "other"  ("0") 
--  entry  in  cevt  Be  sure  and  filter  out  those  entries  that  do,  in  fact 
—  have  intervention  activities  also  listed. 


SELECT 

dist, 

unit[l,3], 

service, 

SUM(counter)  counter 
FROM 
last_insp 
WHERE 

mccase  IN  (SELECT  mccase  FROM  cevt  WHERE  dtype  IN  ("0")) 
AND  mccase  NOT  IN  (SELECT  mccase  FROM  cevt  WHERE  dtype 
IN(’T*;7","3”.”4","5","6",’7";*8","9")) 

GROUP  BY 
dist, 

unit[l,3], 
service 
ORDER  BY 
dist, 

unit[l,3], 

service; 


File:  int_act_l.sql 
Author  Michael  M.  Delleney 
--  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  1-SQL  4.11 

—  Finds  and  totals  the  number  of  Cargo  Handling/Pollution  Control 

—  intervention  activities  from  cevL 

DROP  TABLE  tl; 

SELECT 

lastjnsp.dist, 

lastjnsp.unit, 

lastjnsp.service, 

lastjnsp.subject, 

cevLdtype, 

SUM(cevt.counter)  counter 
FROM 
lastjnsp, 
cevt 

WHERE 

lastjnsp.mccase  =  cevt.mccase 
AND  cevtdtype  =  "1" 

GROUP  BY 
lastjnsp.dist, 
last_insp.unit, 
last_insp.service, 
lastjnsp.subject, 
cevtdtype 
ORDER  BY 
last_insp.dist, 
last_insp.unit, 
lastjnsp.service, 
lastjnsp.subject, 
cevtdtype 
INTO  TEMP 
tl; 

OUTPUT  TO  ou^ut/int_act_l.out 
SELECT 
tl.dist 
tl.unit[l,3], 
tl  .service, 
tLdtype, 
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SUM(tl. counter)  counter 
FROM 
tl 

GROUP  BY 
tl.dist, 
tl.unit[l,3]. 
tl  .service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl  .service, 
tl.dtype; 


File:  int_act_2.sql 
Author  Michael  M.  Delleney 

--  Date  of  last  revision:  18  AUG  1994 

-  Environment:  Informix  Online  5.01  and  I-SQL  4.11 

“  Finds  and  totals  the  number  of  Steering/Navigation 

—  intervention  activities  from  cevt. 

DROP  TABLE  tl; 

SELECT 

lastjnsp.dist, 

last_insp.unit, 

lastjnsp.service, 

last_insp.subject, 

cevt.dtype, 

SUM(cevt.counter)  counter 

FROM 

last_insp, 

cevt 

WHERE 

last_insp.mccase  =  cevt.mccase 
AND  cevtdtype  =  "2" 

GROUP  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.se  rvice, 
lastjnsp.  subject, 
cevt.dtype 

ORDER  BY 
lastjnsp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevt.dtype 

INTO  TEMP 
tl; 

OUTPUT  TO  ou^ut/int_act_2.out 

SELECT 
tl  .dist, 
tl.unit[l,3], 
tl  .service, 
tLdtype, 


SUM (tl. counter)  counter 
FROM 
tl 

GROUP  BY 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl  .service, 
tl.dtype; 


File:  int_act_3.sql 
Author:  Michael  M.  Delleney 
--  Date  of  last  revision;  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

—  Finds  and  totals  the  number  of  Document/Paperwork 

—  intervention  activities  from  cevt. 

DROP  TABLE  tl; 

SELECT 

lastjnsp.dist, 

last.insp.unit, 

last_insp.service, 

lastjnsp.subject, 

cevLdtype, 

SUM(cevt.counter)  counter 
FROM 
last_insp, 
cevt 

WHERE 

last_insp.mccase  =  cevt.mccase 
AND  cevtdtype  =  "3" 

GROUP  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevt.dtype 
ORDER  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevtdtype 
INTO  TEMP 
tl; 

OUTPUT  TO  outputAint_act_3.out 
SELECT 
tl.dist, 

tLunit[l,31< 

tl  .service, 
tl.dtype. 


SUM(tl. counter)  counter 
FROM 
tl 

GROUP  BY 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype; 


File:  int_act_4.sql 
Author:  Michael  M.  Delleney 
"  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

—  Finds  and  totals  the  number  of  Drills/Human  Factors 

—  intervention  activities  from  cevt. 

DROP  TABLE  tl; 

SELECT 
last.insp.dist, 
last_insp.unit, 
last_insp.  service, 
lastjnsp.subject, 
cevt.dtype, 

SUM(cevt.counter)  counter 
FROM 
last_insp, 
cevt 

WHERE 

last_insp.mccase  =  cevt.mccase 
AND  cevt.dtype  =  "4" 

GROUP  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.  subject, 
cevt.dtype 
ORDER  BY 
lastjnsp.disi, 
last_insp.unit, 
last_insp.  service, 
last_insp.subject, 
cevt.dtype 
INTO  TEMP 
tl; 

OUTPUT  TO  ou^ut/int_act_4.out 
SELECT 
tl.dist, 
tl.unit[l,3], 
tl  .service, 
tl.dtype. 


SUM(tl  .counter)  counter 
FROM 
tl 

GROUP  BY 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype; 


File:  int_act_5.sql 
Author  Michael  M.  Delleney 
--  Date  of  last  revision:  18  AUG  1994 

Environment:  Infonnix  Online  5.01  and  I-SQL  4.11 

~  Finds  and  totals  the  number  of  Auxiliary  Systems 
—  intervention  activities  from  cevt. 

DROP  TABLE  tl; 

SELECT 

lastjnsp.dist, 

lastjnsp.unit, 

lastjnsp.service, 

last_insp.subject, 

cevtdtype, 

SUM(cevt.counter)  counter 
FROM 
last_insp, 
cevt 

WHERE 

last_insp.mccase  =  cevt.mccase 
AND  cevt.dtype  =  "5" 

GROUP  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevt-dtype 
ORDER  BY 
lastjnsp.dist, 
lastjnsp.unit, 
lastjnsp.service, 
lastjnsp.subject, 
cevt.dtype 
INTO  TEMP 
tl; 

OUTPUT  TO  output/int_act_5.out 
SELECT 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype. 


SUM(tl. counter)  counter 
FROM 
tl 

GROUP  BY 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype; 


File:  int_act_6.sql 
Author  Michael  M.  Delleney 

—  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

—  Finds  and  totals  the  number  of  Power  Plant  intervention  activities  from  cevt. 

DROP  TABLE  tl; 

SELECT 

last.insp.dist, 

lastjnsp.unit, 

lastjnsp.service, 

last_insp.subject, 

cevt.dtype, 

SUM(cevt.counter)  counter 

FROM 

lastjnsp, 

cevt 

WHERE 

last_insp.mccase  =  cevt.mccase 
AND  cevtdtype  =  "6" 

GROUP  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevt.dtype 

ORDER  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevt.dtype 

INTO  TEMP 
tl; 

OUTPUT  TO  ou^utAnt_act_6-out 

SELECT 

tLdisL 

tl.unitIL3], 

tl. service, 
tl.dtype, 

SUM(tl. counter)  counter 


FROM 

tl 

GROUP  BY 
tl.dist, 

tl.unit[l,3]. 

tl. service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl  .service, 
tl.dtype; 


File:  int_act_7.sql 

“  Author:  Michael  M.  Delleney 

~  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

—  Finds  and  totals  the  number  of  Fire  Fighting  and  Prevention 
--  intervention  activities  from  cevt. 

DROP  TABLE  tl; 

SELECT 

lastjnsp.dist, 

last_insp.unit, 

last_insp.service, 

last_insp.subject, 

cevt-dtype, 

SUM(cevt.counter)  counter 
FROM 
last_insp, 
cevt 

WHERE 

lastjnsp.mccase  =  cevt.mccase 
AND  cevtdtype  =  "7" 

GROUP  BY 
lastjnsp.dist, 
lastjnsp.unit, 
last Jnsp.  service, 
lastjnsp.subject, 
cevt.dtype 
ORDER  BY 
lastjnsp.dist, 
lastjnsp.unit, 
lastjnsp.service, 
lastjnsp.subject, 
cevtdtype 
INTO  TEMP 
tl; 

OUTPUT  TO  ou^ut/int_act_7.out 
SELECT 
tl.dist, 
tl.unit[l,3], 
tl. service. 


tl.dtype, 

SUM(tl. counter)  counter 
FROM 
tl 

GROUP  BY 
tl.dist, 

tl.unit[l,3]. 

tl. service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl  .service, 
tl.dtype; 


File:  int_act_8.sql 
Author:  Michael  M.  Delleney 
~  Date  of  last  revision:  18  AUG  1994 

Environment:  Infonnix  Online  5.01  and  1-SQL  4.11 

~  Finds  and  totals  the  number  of  HULL  intervention  activities  from  cevt. 

DROP  TABLE  tl; 

SELECT 
last.insp.dist, 
last.insp.unit, 
lastjnsp.service, 
last_insp.  subject, 
cevt.dtype, 

SUM(cevt.counter)  counter 
FROM 
lastjnsp, 
cevt 

WHERE 

last_insp.mccase  =  cevt.mccase 
AND  cevt.dtype  =  "8" 

GROUP  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevt.dtype 
ORDER  BY 
last_insp.dist, 
lastjnsp.unit, 
last_insp.service, 
last_insp.subject, 
cevt.dtype 
INTO  TEMP 
tl; 

OUTPUT  TO  output/int_act_8.out 
SELECT 
tl.dist, 
tl.unitfl,3], 
tl  .service, 
tl  .dtype, 

SUM(tl. counter)  counter 
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FROM 

tl 

GROUP  BY 
tl.dist, 
tl.unit[l,31t 
tl  .service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl  .service, 
tl.dtype; 


File:  int_act_9.sql 
Author:  Michael  M.  Delleney 
“  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

~  Finds  and  totals  the  number  of  Life  Saving 
-*  intervention  activities  from  ccvt. 

DROP  TABLE  tl; 

SELECT 

last_insp.dist, 

lastjnsp.unit, 

last_insp.service, 

Iast_insp.subject, 

cevtdtype, 

SUM(cevt.counter)  counter 
FROM 
last_insp, 
cevt 

WHERE 

lastjnsp.mccase  =  cevt.mccase 
AND  cevt.dtype  =  "9" 

GROUP  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevt.dtype 
ORDER  BY 
lastjnsp.dist, 
lasMnsp.unit, 
lastjnsp.service, 
last_insp.subject, 
cevt.dtype 
INTO  TEMP 
tl; 

OUTPUT  TO  ouqput/int_act_9.out 
SELECT 
tLdist, 
tl.unit[L3], 
tl. service, 
tLdtype, 
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SUM(tl. counter)  counter 
FROM 
tl 

GROUP  BY 
tl.dist, 

tl.unit[l,3], 

tl, service, 
tLdtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tLdtype; 


File:  per_cas.sql 
Author:  Michael  M.  Delleney 

-  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.1 1 

-  This  flle  calculates  the  number  of  deaths  and  injuries  to  be 

-  attributed  to  each  MSO  last  inspecting  the  vessel  which  had  the  casualty. 

~  The  results  are  grouped  by  vessel  service  and  MSO  and  finally  district. 

-DROP  TABLE  tl; 

SELECT 

lastjnsp.dist, 

last_insp.unit, 

last_insp.service, 

last_insp.subject, 

SUM(cpct.ddead)  deaths, 

SUM(cpct.dinjury)  injuries 

FROM 

last_insp, 

cpct 

WHERE 

lastjnsp.subject  =  cpctsubject 

GROUP  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject 

ORDER  BY 
lastjnsp.dist, 
lastjnsp.unit, 
lastjnsp.service, 
lastjnsp.subject 

INTO  TEMP 
tl; 

OUTPUT  TO  ou4)uV'per_cas.out 

SELECT 
tl.dist, 
tl.unit[l,3], 
tl, service, 

SUM(tl. deaths)  deaths, 

SUM(tl. injuries)  injuries 


FROM 

tl 

GROUP  BY 
tl.dist, 
tl.unit[l,3], 
tl  .service 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service; 


File:  pol_cas.sql 
Author  Michael  M.  Delleney 

—  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

—  This  nie  calculates  the  amount  of  damage  to  be  attributed  to  each  MSO 
~  last  inspecting  the  vessel  which  had  the  casualty.  The  results  are 

—  grouped  by  vessel  service  and  MSO  and  finally  district. 

DROP  TABLE  tl; 

SELECT 

last.insp.dist, 

lastjnsp.unit, 

last_insp.service, 

last_insp.subject, 

SUM(cpdt.in_water_spilled  +  cpdLout_water_spilled)  quantity 
FROM 
last_insp, 
cpdt, 
civt 

WHERE 

civt.subject  =  cpdt.subject 
AND  cpdt.subject  =  last_insp.subject 
GROUP  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject 
ORDER  BY 
lastjnsp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject 
INTO  TEMP 
tl; 

OUTPUT  TO  output/pol_cas.out 
SELECT 
tl.dist, 
tl.unit[l,3]> 
tl  .service, 

SUM(tl. quantity)  quantity 
FROM 
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tl 

GROUP  BY 

tl.unit[l,3]. 
tl. service 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service 


File:  prop_cas.sql 
Author:  Michael  M.  Delleney 

—  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

~  This  file  calculates  the  dollar  amount  of  damage  to  be  attributed  to 

—  each  MSO  last  inspecting  the  vessel  which  had  the  casualty. 

—  The  results  are  grouped  by  vessel  service  and  MSO  and  finally  district. 

DROP  TABLE  tl; 

SELECT 

last_insp.dist, 

lastjnsp.unit, 

lastjnsp.service, 

last_insp.subject, 

cirt.total_damage 

FROM 

last_insp, 

civt, 

cirt 

WHERE 

cirt.mccase  =  civt.mccase 

AND  civLsubject  =  lastjnsp. subject 

GROUP  BY 
lastjnsp.dist, 
lastjnsp.unit, 
lastjnsp.service, 
lastjnsp.subject, 
cirt.total_damage 

ORDER  BY 
last_insp.dist, 
lastjnsp.unit, 
lastjnsp.service, 
lastjnsp.subject 

INTO  TEMP 
tl; 

OUTPUT  TO  outpui/prop_cas.out 

SELECT 
tl.dist, 
tl.unit[l,3], 
tl. service, 

SUM(tl.total_damage)  total_damage 
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FROM 

tl 

GROUP  BY 
tl.dist, 

tl.unit[l,3]> 
tl. service 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service; 

OUTPUT  TO  output/cas_mso.out 
File;  cas_mso.sql 
Author  Michael  M.  Delleney 
--  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 


Determine  from  LAST_INSP  how  many  casualties  are  to  be  counted  against  the 
-  district/unit  performing  the  last  inspection  prior  to  the  casualty. 


SELECT 
last_insp.dist 
last_insp.unit[l,3] 
last_insp.service 
SUM(counter) 
FROM 
last_insp 
GROUP  BY 
lastjnsp.dist, 
last_insp.unit[l,3], 
last_insp.  service 
ORDER  BY 
lastjnsp.dist, 
last Jnsp.unitl  1,3], 
lastjnsp.service; 


district, 

mso, 

service, 

casualties 


OUTPUT  TO  ou^ut^nsp_mso.out 
File:  insp_mso.sql 
Author:  Michael  M.  Delleney 

—  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

—  Determine  from  INSP  how  many  inspections  by  district,  unit,  and  vessel 
~  service  were  performed  on  US  vessels  between  the  years  1992  and  1993 
~  inclusive. 

SELECT 

insp.dist  district, 

insp.unit[l,3]  mso, 

insp.service  service, 

SUM(insp.counter)  inspections 
FROM 
insp 

GROUP  BY 
insp.dist, 
insp.unit[l,3], 
insp.service 
ORDER  BY 
insp.dist, 
insp. unit[  1,3], 
insp.service; 
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OUTPUT  TO  output^n_cevLout 
File:  counting,  sql 
Author:  Michael  M.  Delleney 
—  Date  of  last  revision:  26  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 


--  The  puipose  of  the  queries  in  this  file  are  to  determine,  by  MSO,  MIO,  and 
“  service,  how  many  of  the  cases  involving  vessel  casualties  are  listed  in 

—  and  out  of  cevt.  Of  those  so  listed  as  being  in  cevt,  how  many  map  to  the 

—  intCTvention  activities  outlined  in  "Progress  Report  on  Project  3304.3  - 
"  Research  Methods  to  Analyze  the  Relationships  Between  the  Inspection 
--  Boarding  Process  and  the  Office  of  Marine  S^ety  Goals:  Task  3.1  - 

—  Intervention  Analysis,  Draft  TTC-1321"  and  how  many  map  to  "other" 

”  activities. 

—  Select  those  entries  in  last_insp  which  are  also  in  cevt. 

SELECT 

dist, 

unit[l,3], 

service, 

SUM(counter)  counter 
FROM 
last_insp 
WHERE 

mccase  IN  (SELECT  mccase  FROM  cevt) 

GROUP  BY 
dist, 

unit[l,3], 
service 
ORDER  BY 
dist, 

unit[l,31, 

service; 

OUTPUT  TO  output/out_cevLout 

~  Now  we  want  to  determine  how  many  vessel  casualties  listed  in  last_insp  are 

—  not  also  listed  in  cevt. 


SELECT 

dist, 

unit[L3], 


service, 

SUM(counter)  counter 
FROM 
last_insp 
WHERE 

mccase  NOT  IN  (SELECT  mccase  FROM  cevt) 

GROUP  BY 
dist, 

unit[l,3], 
service 
ORDER  BY 
dist, 

unit[l,3], 

service; 

OUTPUT  TO  output/intervene.out 

—  Select  and  count  those  entries  in  last_insp  which  do  not  have  an  "other" 

—  ("0")  entry  in  cevt  but  have  some  other  entry  from  the  set 

SELECT 

dist, 

unit[l,3], 

service, 

SUM(counter)  counter 
FROM 
last_insp 
WHERE 

mccase  IN  (SELECT  mccase  FROM  cevt  WHERE  dtype 
IN  ("1","2","3","4","5","6","7","8","9")) 

GROUP  BY 
dist, 

unit[l,3], 
service, 
counter 
ORDER  BY 
dist, 

unit[l,3], 

service, 

counter, 

OUTPUT  TO  ou^ut/other.out 

—  Select  and  count  those  entries  in  last_insp  which  have  an  "other"  ("0") 

—  entry  in  cevt  Be  sure  and  filter  out  those  entries  that  do,  in  fact 
~  have  intervention  activities  also  listed. 


SELECT 

dist, 

unit[l,3], 

service, 

SUM(counter)  counter 
FROM 
lastjnsp 
WHERE 

mccase  IN  (SELECT  mccase  FROM  cevt  WHERE  dtype  IN  ("0")) 
AND  mccase  NOT  IN  (SELECT  mccase  FROM  cevt  WHERE  dtype 

GROUP  BY 
dist, 

unit[l,3], 
service 
ORDER  BY 
dist, 

unit[l,3], 

service; 
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—  File:  int_act_l.sql 
Author.  Michael  M.  Delleney 

—  Date  of  last  revision:  18  AUG  1994 

Environment:  Infonnix  Online  5.01  and  I-SQL  4.11 

—  Finds  and  totals  the  number  of  Cargo  Handling/Pollution  Control 
“  intervention  activities  from  cevt. 

DROP  TABLE  tl; 

SELECT 

last.insp.dist, 

last_insp.unit, 

lastjnsp.service, 

last_insp.subject, 

cevtdtype, 

SUM(cevt.counter)  counter 
FROM 
last_insp, 
cevt 

WHERE 

last_insp.mccase  =  cevt.mccase 
AND  cevt.dtype  =  "1" 

GROUP  BY 
last_insp.dist, 
last_insp.unit, 
lastjnsp.service, 
lastjnsp.subjeci, 
cevt-dtype 
ORDER  BY 
lastjnsp.dist, 
lastjnsp.unit, 
lastjnsp.service, 
lastjnsp.subject, 
cevt.dtype 
INTO  TEMP 
tl; 

OUTPUT  TO  outputAnt_act_l.out 
SELECT 
tLdist, 
tl.unit[l,3], 
tl. service, 
tl.dtype. 
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SUM(tl  .counter)  counter 
FROM 
tl 

GROUP  BY 
tl.dist, 
tl.unit[l,3]. 

tl. service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype; 


File:  int_act_2.sql 
Author  Michael  M.  Delleney 

—  Date  of  last  revision:  18  AUG  1994 

”  Environment:  Informix  Online  5.01  and  I-SQL  4.11 

—  Finds  and  totals  the  number  of  Steering/Navigation 

—  intervention  activities  from  cevt. 

DROP  TABLE  tl; 

SELECT 

lastjnsp.dist, 

lastjnsp.unit, 

last_insp.service, 

last_insp.subject, 

cevt.dtype, 

SUM(cevt.counter)  counter 
FROM 
last_insp, 
cevt 

WHERE 

last_insp.mccase  =  cevtmccase 
AND  cevt.dtype  =  "2" 

GROUP  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevt.dtype 
ORDER  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevt.dtype 
INTO  TEMP 
tl; 

OUTPUT  TO  output^nt_act_2.out 
SELECT 
tl.dist, 
tl.unit[l,3]. 

tl  .service, 
tl.dtype. 
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SUM(tl. counter)  counter 
FROM 
tl 

GROUP  BY 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl  .service, 
tl.dtype; 


File:  int_act_3.sql 
Author:  Michael  M.  Delleney 
—  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

~  Finds  and  totals  the  number  of  Document/Paperwork 
~  intervention  activities  from  cevt. 

DROP  TABLE  tl; 

SELECT 

last_insp.dist, 

lastjnsp.unit, 

lastjnsp.service, 

last_insp.subject, 

cevt.dtype, 

SUM(cevt.counter)  counter 
FROM 
last_insp, 
cevt 

WHERE 

last_insp.mccase  =  cevt.mccase 
AND  cevt.dtype  =  "3" 

GROUP  BY 
lastjnsp.dist, 
last_insp.unit, 
lastjnsp.service, 
lastjnsp.subject, 
cevt.dt>’pe 
ORDER  BY 
lastjnsp.dist, 
lastjnsp.unit, 
lastjnsp.service, 
lastjnsp.subject, 
cevLdtype 
INTO  TEMP 
tl; 

OUTPUT  TO  ouq)ut/int_act_3-out 
SELECT 
tl.dist, 
tl.unit[l,3], 
tl. service. 
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tl.dtype, 

SUM(tl. counter)  counter 
FROM 
tl 

GROUP  BY 
tl.dist, 

tl.unit[l,3]> 
tl  .service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype; 


File:  int_act_4.sql 
Author  Michael  M.  Dclleney 
--  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

—  Finds  and  totals  the  number  of  Diills/Human  Factors 

—  intervention  activities  from  ccvL 

DROP  TABLE  tl; 

SELECT 

last.insp.dist, 

lastjnsp.unit, 

lastjnsp.service, 

last_insp.subject, 

cevtdtype, 

SUM(cevt.counter)  counter 
FROM 
last_insp, 
cevt 

WHERE 

last_insp.mccase  =  cevt.mccase 
AND  cevtdtype  =  "4" 

GROUP  BY 
last_insp.dist 
lastjnsp.unit 
last_insp. service, 
last_insp. subject 
cevt.dtype 
ORDER  BY 
last_insp.dist, 
last_insp.unit 
lastjnsp.service, 
lastjnsp.subject, 
cevtdtype 
INTO  TEMP 
tl; 

OUTPUT  TO  outputAnt_act_4.out 
SELECT 
tl.dist 
tl.unit[l,3], 
tl  .service, 
tl.dtype. 
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SUM(tl. counter)  counter 
FROM 
tl 

GROUP  BY 
tl.dist, 
tl.unit[l,3]. 
tl. service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype; 


File;  int_act_5.sql 

"  Author:  Michael  M.  Delleney 

--  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

—  Finds  and  totals  the  number  of  Auxiliary  Systems 
“  intervention  activities  from  ccvt. 

DROP  TABLE  tl; 

SELECT 

last.insp.dist, 

lastjnsp.unit, 

lastjnsp.service, 

lastjnsp.subject, 

cevt.dtype, 

SUM(cevt.counter)  counter 
FROM 
lastjnsp, 
cevt 

WHERE 

last_insp.mccase  =  cevt.mccase 
AND  cevt.dtype  =  "5" 

GROUP  BY 
last_insp.dist, 
lastjnsp.unit, 
lastjnsp.service, 
lastjnsp.subject, 
cevt.dtype 
ORDER  BY 
lastjnsp.dist, 
lastjnsp.unit, 
lastjnsp.service, 
lastjnsp.subject, 
cevt.dtype 
INTO  TEMP 
tl; 

OUTPUT  TO  output/int_act_5.out 
SELECT 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype. 


SUM(tl  .counter)  counter 
FROM 
tl 

GROUP  BY 
tl.dist, 
tl.unit[l,3]. 
tl. service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype; 


File:  int_act_6.sql 
Author  Michael  M.  Delleney 
--  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  1-SQL  4.11 


--  Finds  and  totals  the  number  of  Power  Plant  intervention  activities  from  cevt. 

DROP  TABLE  tl; 

SELECT 

last_insp.dist, 

lastjnsp.unit, 

last_insp.service, 

last_insp.subject, 

cevtdtype, 

SUM(cevt.counter)  counter 
FROM 
last_insp, 
cevt 

WHERE 

last_insp.mccase  =  cevt.mccase 
AND  cevtdtype  =  "6" 

GROUP  BY 
last_insp.dist, 
lastjnsp.unit, 
lastjnsp.service, 
lastjnsp. subject 
cevt.dtype 
ORDER  BY 
lastjnsp.dist 
lastjnsp.unit, 
lastjnsp.service, 
lastjnsp.subject, 
cevt.dtype 
INTO  TEMP 
tl; 

OUTPUT  TO  output^nt_act_6.out 
SELECT 
tl.dist, 
tl.unit[13], 
tl  .service, 
tl.dtype, 

SUM(tl. counter)  counter 


FROM 

tl 

GROUP  BY 
tl.dist, 

tl.unit[l,3], 
tl. service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype; 


File:  int_act_7.sql 
Author:  Michael  M.  Delleney 
“  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

~  Finds  and  totals  the  number  of  Fire  Fighting  and  Prevention 
—  intervention  activities  from  cevt. 

DROP  TABLE  tl; 

SELECT 

lastjnsp.dist, 

last_insp.unit, 

last_insp.service, 

lastjnsp.subject, 

cevLdtype, 

SUM(cevt.counter)  counter 
FROM 
last_insp, 
cevt 

WHERE 

last_insp.mccase  =  cevt.mccase 
AND  cevt.dtype  =  "7" 

GROUP  BY 
last_insp.dist, 
last_insp.unit, 
last_insp.service, 
last_insp.subject, 
cevt-dtype 
ORDER  BY 
lastjnsp.dist, 
lastjnsp.unit, 
last Jnsp. service, 
lastjnsp.subject, 
cevtdtype 
INTO  TEMP 
tl; 

OUTPUT  TO  ou^ut^nt_act_7.out 
SELECT 
tl.dist, 
ll.unit[l,3], 
tl. service, 
tl.dtype. 


SlJM(tl. counter)  counter 
FROM 
tl 

GROUP  BY 
tl.dist, 
tl.unit[l,3], 
tl  .service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl  .service, 
tl.dtype; 


File:  int_act_8.sql 
Author:  Michael  M.  Delleney 
“  Date  of  last  revision:  18  AUG  1994 

Environment:  Infoimix  Online  5.01  and  I-SQL  4.11 

—  Finds  and  totals  the  number  of  HULL  intervention  activities  from  cevt. 

DROP  TABLE  tl; 

SELECT 

last.insp.dist, 

lastjnsp.unit, 

lastjnsp.service, 

lastjnsp.subject, 

cevLdtype, 

SUM(cevt.counter)  counter 
FROM 
last_insp, 
cevt 

WHERE 

last_insp.mccase  =  cevt.mccase 
AND  cevt.dtype  =  "8" 

GROUP  BY 
lastjnsp.dist, 
last_insp.unit, 
lastjnsp.service, 
lastjnsp.subject, 
cevt.dtype 
ORDER  BY 
lastjnsp.dist, 
lastjnsp.unit, 
lastjnsp.service, 
lastjnsp.subject, 
cevt.dtype 
INTO  TEMP 
tl; 

OUTPUT  TO  outputAnt_act_8.out 
SELECT 
tl.dist, 
tl.unit[l,3], 
tl  .service, 
tl.dtype, 

SUM(tl. counter)  counter 
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FROM 

tl 

GROUP  BY 
tl.dist, 
tl.unit[l,3]. 

tl. service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype; 


File:  int_act_9.sql 
Author  Michael  M.  Delleney 

—  Date  of  last  revision:  18  AUG  1994 

Environment:  Informix  Online  5.01  and  I-SQL  4.11 

—  Finds  and  totals  the  number  of  Life  Saving 

—  intervention  activities  from  cevt. 

DROP  TABLE  tl; 

SELECT 

lastjnsp.dist, 

last_insp.unit, 

last_insp.service, 

last_insp.subject, 

cevt.dtype, 

SUM(cevt.counter)  counter 

FROM 

last_insp, 

cevt 

WHERE 

last_insp.mccase  =  cevtmccase 
AND  cevtdtype  =  "9" 

GROUP  BY 
lastjnsp.dist, 
lastjnsp.unit, 
lastjnsp.service, 
last  Jnsp.  subject, 
cevt.dtype 

ORDER  BY 
lastjnsp.dist, 
lastjnsp.unit, 
lastjnsp.service, 
lastjnsp.subject, 
cevt.dtype 

INTO  TEMP 
tl; 

OUTPUT  TO  ou^ut/int_act_9.out 

SELECT 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype. 


SUM(tl. counter)  counter 
FROM 
tl 

GROUP  BY 
tl.dist, 

tl.unit[l,3]. 
tl  .service, 
tl.dtype 
ORDER  BY 
tl.dist, 
tl.unit[l,3], 
tl. service, 
tl.dtype; 


B.3  INFORMIX  Query  Files  For  the  Econometric  Analysis 


This  appendix  contains  the  SQL  programs  used  to  query  the  MSMS  database  and  construct  the 
data  sets  used  in  the  econometric  analysis.  The  programs  arc  written  in  INFORMIX  (ISQL)  and 
are  easily  translated  into  other  SQL-based  database  software  that  are  designed  to  manage 
relational  databases  such  as  SYBASE.  Minor  syntax  modirications  may  be  needed  before  these 
programs  can  be  implemented  from  SQL-based  software  other  than  INFORMIX. 

The  program  names  appear  in  bold  and  the  following  contains  the  sequence  of  runs  required  to 
create  each  econometric  data  set.  Programs  must  be  run  in  the  order  in  which  they  appear  in  the 
instructions  below. 


I.  Poisson  Model  runs  for  Level  I  and  Level  HI  activities.  MI  and  PS  cases. 

(i)  MI  Cases 

1.  Level  I:  Run  MHNSPl.SQL,  MIINSP2.SQL,  MIINSP3.SQL. 

Then  run  MIPERSl.SQL,  and  MIPERS2.SQL  for  Personnel 
casualties,  and  MIPERSl.SQL,  and  MIPERS2.SQL  for  Pollution 
casualties. 

2.  Level  HI:  Run  MID3139.SQL.  It  includes  everything  from  start  to  finish,  but 

takes  4-5  hours  to  run. 

(ii)  PS  Cases 

1.  Level  I:  Run  PSINSPl.SQL,  PSINSP2.SQL,  PSINSP3.SQL. 

Then  run  PSPERSl.SQL,  and  PSPERS2.SQL  for  Personnel 
casualties,  and  PSPERSl.SQL,  and  PSPERS2.SQL  for  Pollution 
casualties. 


II.  Duration  Model  runs  for  Level  II  activities: 

U.S.  flag  (A-activitiesL  Foreign  flag  (B-activitiesl 

(i)  A-activities 


1.  Level  D:  Run  DUR_A1.SQL,  DUR_A2.SQL,  DUR_A3.SQL  duration  data 

sets  for  each  activity,  Al,  A2,  A3,  respectively. 

(ii)  B-activities 


2.  Level  II: 
distinguished 
in  the 
data  set 


Run  DUR_B.SQL.  Since  the  activities  Bl,  B2,  and  B3  are 
by  vessel  service,  separate  analysis  by  service  is  done 
econometric  analysis.  The  SQL  program  produces  just  one 
(that  includes  all  services). 


PROGRAMS  FOR  POISSON  DATA  SETS 
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miNSPl.SQL 


{For  the  hours  of  inspection  equation  have  (i)  nuin_def  from  IRIT  and 
(ii)  indicators  for  inspection  types  from  both  CRST  and  IRIT  added  up  here. 
Need  to  check  them  against  each  other  for  integrity,  and  also  the  average 
for  the  data  set  to  see  if  they  make  sense.  See  handout  for  logic  of  their 
inclusion  in  the  manner  of  this  program) 

(This  joins  CRST  and  IRIT  by  case  and  aggregates  CRST  hours  by  IRIT's  vkey 
This  is  different  from  earlier  programs  only  in  that  VILT  was  being  used. 

Upon  USCG  (Dr.  Hantzes)  recommendation  (June  meeting),  IRIT  is  used  instead) 

{drop  table  crst_tempO) 

select 

irit.vkey  iritvkey, 

count (*)  numcases, sum(hr_hull)  hull_hr , sum(hr_roach)  mach_hr, 
sum(hr_train)  train_hr,  sum(hr_extra)  extra_hr, sum (hr_t extra)  textra_hr, 
stim(hr_admin)  admin_hr,  sum(hr_travel)  travel_hr,sum(hr_ttravel)  ttravel_hr, 
sum(hr_other)  other_hr, 
sum(irit .num_def )  num_def, 

sum (irit .dinit)  iritinit,sum(irit.dcert)  iritcert, 

sum(irit.dreinsp)  iritreinsp,sum(irit .dcoc)  iritcoc,sum(irit.dhull)  irithull, 

sum ( irit  .dother)  iritother,  svim(irit.dadmin)  iritadmin, 

sum (erst .dannual)  crstannual,  sum (erst .dreinsp)  erstreinsp, 

sum (erst .dadmin)  erstadmin, sum(crst .dhull)  crsthull , sum (erst .dcoc)  crstcoc, 

sum (erst .dconstr)  crstconstr, sum (erst .deert )  crstcert, 

sum(crst .dinit )  crstinit,sum(crst.dmach)  crstmach, sum(crst .ddef icit)  erstdef, 
sum  (erst  .dother)  erstother,  svim(crst  .drest)  erstrest 

from  erst,  irit 

(Note  the  date  >=  89.  This  is  since  only  post-91  casualties  are  being 
considered.  Hence  choose  a  year  with  which  I  am  comfortable  (years  to 
failure  is  not  badly  measured  so  that  it  affects  the  results,  can  try 
with  other  years  e.g.  90,  88  as  well).) 
where 

irit .micase[l ,2] =*MI"  and 
irit .vkey [ 1 , 2) ="VN“  and 
crst.caseil,2i=“MI“  and 
erst . case [3 , 4 ] >=’ 89*  and 
erst . case=irit .micase 

group  by  irit.vkey 
into  temp  crst_tempO; 

select  count (*)  count crst_tempO 
from  crst_tempO; 
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MXINSP2.SQL 

{This  file  joins  CRST_TEMPO  (agg  hours  by  vkev) 
service,  flag,  reg_gt,  bld_yr,  route.) 


to  VIDT  to  identify  the  flag: 


(drop  table  vidtcrst;) 


select 

crst_tempO. *, 

vidt. service  service,  vidt.flag  flag,  vidt.reg  gt  reo  at 
(vidt .bld_dt )  yearbld,  vidt. route  route,  ~ 

iidJ.SblLd^"^yrvMt^"cil?o1.t^  inspection  if  adequate) 

viac.aoxsiae.typ,  vidt.dblbott_typ,  vidt .prop.typ,  vidt. design,  vidt .hull.mat 

from  crst_teinpO,  vidt 
where 

crst.tempO . iritvkey=vidt . vkey  and 

vidt .services "FREIGHT  SHIP*  or  vidt .services "PUB.  TANKSHIP/BARGE*  or 
vidt .services "TANK  SHIP*  or  ( (vidt .services "PASSENGER*  or 
vidt .services* passenger  SHIP*)  and  vidt.reg  gt>sl00) 

)  and  ' 

vidt .flags*us* 
into  temp  vidtcrst; 


select  count (*) 
from  vidtcrst; 


MI1HSP3.SQL 

{Check  to  see  if  numbers  make  sense) 

select  count (*)  observations.  avg(hull_hr)  AVG_hullhr,avg{mach_hr)  AVG.machhr, 
avg (admin_hr)  AVG_adminhr ,avg (reg_gt)  AVG  reggt 
from  persinsp;  “ 

select  ir i tvkey , hu ll_hr , mach_hr , admin_hr , reg_gt 
from  persinsp 
order  by  hull_hr; 


MIPBRSl.SQL 


{Be  sure  to  run  MIINSPl  and  MIINSP2  before  these  two  progs) 

(No  incident  date.  But  since  MINMOD,  post-1991 (few  91s  mostly  92,93)} 

(  Here,  casualty  data  is  assembled  from  CIVT  and  CIRT. 

CIRT,  and  CIVT  are  joined  by  (unique)  Mccase  and  select  out  only 
deep-draft  vessels  (hence  a  little  use  of  VIDT) .  Personnel  casualties  are 
constructed  from  CIRT  (which  has  no  vkey)  and  joined  to  CIVT  to  associate 
them  with  a  Vkey.  There  are  duplicate  Vkey  records  in  CIVT  (of  the  28,821 
records,  13,548  have  unique  Vkey),  so  we  need  to  choose  only  unique  records) 

drop  table  civt_dups; 
drop  table  civt_nodups; 
drop  table  cirt_civtO; 

} 

select 

civt .vkey  civtvkey, deaths, missing, injured, incident_dt 
from  cirt,  civt,  vidt 

(Note  that  in  CIVT,  the  vkey  is  not  unique  (in  VIDT  vkey  is  unique) .  Hence 
first  get  temp  table  civt_dups  (with  duplicates).  Then  check  for  number 
of  duplicates  before  grouping  by  vkey) 
where 

cirt .mccase=civt .mccase  and 
civt .vkey = vidt .vkey  and 

(Jim  Law:  converstion  on  July  14,  1994.  The  following  query  contracts 
CIRT  to  cases  that  are  correct  (drop  mystery  and  inconsequential 
casualties).  ctf_ind=X  are  inconsequential  cases.  command_endorse  and 
command_cls  are  mutually  exclusive.  command_endorse=X  implies  that 
case  has  been  reviewed  and  fwd  to  dt/HQ  for  review.  command_cls=X  means  that 
case  is  done  and  does  not  require  review  at  dt/HQ.  command_endorse=X  are 
legit  cases  and  all  should  be  considered.  Of  the  command_cls=X  cases,  only 
those  with  ctf_ind=null  should  be  considered  since  ctf_ind=X  implies  an 
inconsequential  case.  } 

(cirt .command_endorse="X“ 

or  (cirt ,command_cls=‘X“  and  cirt.ctf_ind  is  null))  and 

(cirt .deaths>0  or  cirt .missing>0  or  cirt .injured>0)  and 
(  civt .service= ’FREIGHT  SHIP*  or  civt . services ’PUB .  TANKSHIP/BARGE" 
or  civt . services ’TANK  SHIP’  or 

( (civt . services’PASSENGER’  or  civt .services "PASSENGER  SHIP")  and 
vidt.reg_gt>sl00)  ) 
into  temp  civt_dups; 
select  count (*)  num_civtdups 
from  civt_dups; 

(This  set  of  statements  selects  non-duplicate  rows  in  civt_dup.  If  group 
by  just  civtvkey , incident_dt,  get  almost  same  rows  as  this) 
select  *  from  civt_dups 

group  by  civtvkey, incident_dt,  deaths , missing, injured 

into  temp  civt_nodups; 

select  count (*)  num_c i vtnodups 

from  civt_nodups; 

(group  by  vkey  to  attach  to  the  inspections  file.  Note  that  numdates  now 
gives  the  number  of  unique  incident  dates  associated  with  that  vessel) 
select  civtvkey,  sum(deaths)  deaths,  sum(missing)  missing, 
sum(injured)  injured,  count (unique  incident_dt)  numdates 


from  civt_nodups 
group  by  civtvkey 

order  by  deaths  desc,  injured  desc,  numdates  desc 
into  temp  cirt_civtO; 

select  count (*)  num_cirtcivtO 
from  cirt_civtO; 

{drop  table  cirt_civtO;} 


MIPBRS2.SQL 

{drop  table  persinsp;} 


•  select  unique  vidtcrst.*,  cirt_civtO.* 
from  vidtcrst,  outer  cirt_civtO 

where  cirt_civtO . civtvkey=vidtcrst , iritvkey 
into  temp  persinsp; 

select  unique  iritvkey 
from  persinsp 
into  ten^  junkO; 

#  select  count (*)  chekpersinsp 
from  junkO; 

drop  table  junkO; 

{Count  number  of  casualty  vkeys  that  Are  in  vidtcrst) 
select  count (*)  vidtcrst_keep 
from  persinsp 

where  civtvkey  is  not  null; 


unload  to  ••/nfs/ttd32/optical/50b/trix.dat/mi.pers‘  delimiter 

select  * 

from  persinsp; 


{print  this  out  to  see  the  variable  names  and  format  for  use  in  ATOG  cmd  file) 

output  to  /users /gawande/mipers .out 

select  * 

from  persinsp 

where  reg_gt>l 00000; 
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MXPOLIil.SQL 

{Be  sure  to  run  MIINSPl  and  MIINSP2  before  these  two  progs} 

(  Here,  pollution  casualty  data  is  assembled  from  CIVT  and  CIRT. 

CIRT,  and  CIVT  are  joined  by  (unique)  Mccase  and  select  out  only 
deep-draft  vessels  (hence  a  little  use  of  VIDT) .  Pollution  incidents  are 
constructed  from  CIRT  (which  has  no  vkey)  and  joined  to  CIVT  to  associate 
them  with  a  Vkey.  There  are  duplicate  Vkey  records  in  CIVT  (of  the  28,821 
records,  13,548  have  unique  Vkey),  so  we  need  to  choose  only  unique  records) 

drop  table  civt_dups; 
drop  table  civt_nodups ; 
drop  table  cirt_civtO; 

select 

civt.vkey  civtvkey,  incident _dt 
from  cirt,  civt,  vidt 

(Note  that  using  VIDT  for  the  reg_gt>100  info  and  hence  need  Unique  in  select 
statement  since  in  CIVT,  the  vkey  is  not  unique  (in  VIDT  vkey  is  unique)} 
where 

cirt  .mccase=civt  .mccase  and 
civt .vkey =vidt .vkey  and 
civt .  f  lag=:“US*'  and 

{Jim  Law:  converstion  on  July  14,  1994.  The  following  query  contracts 
CIRT  to  cases  that  are  correct  (drop  mystery  and  inconsequential 
casualties).  ctf_ind=X  are  inconsequential  cases.  command_endorse  and 
command_cls  are  mutually  exclusive.  command_endorse=X  implies  that 
case  has  been  reviewed  and  fwd  to  dt/HQ  for  review.  command_cls=X  means  that 
case  is  done  and  does  not  require  review  at  dt/HQ.  command_endorse=X  are 
legit  cases  and  all  should  be  considered.  Of  the  command_cls=X  cases,  only 
those  with  ctf_ind=null  should  be  considered  since  ctf_ind=X  implies  an 
inconsequential  case.  } 

(cirt . command_endorse="X“ 

or  (cirt  .command_cls  =  “X*'  and  cirt.ctf_ind  is  null))  and 
cirt .mcpd_ind>=l  and 

(cirt  .pol_ind=’‘X“  or  pri_nature= " POLLUTION" )  and 

(To  select  Only  BAD  cases,  unblock  this  statement) 

(severity  in  ( "MAJOR" , "POTENT" , "MEDIUM" )  and) 

(  civt .service= "FREIGHT  SHIP"  or  civt .servicen" PUB .  TANKSHIP/BARGE" 
or  civt .services "TANK  SHIP"  or 

( (civt .services "PASSENGER"  or  civt .services "PASSENGER  SHIP")  and 
vidt .reg_gt>sl00)  ) 
into  temp  civt_dups; 
select  count (*)  num_civtdups 
from  civt.dups; 

(This  set  of  statements  selects  non-duplicate  rows  in  civt_dup.  If  group 
by  just  civtvkey, incident _dt,  get  almost  same  rows  as  this) 
select  *  from  civt_dups 
group  by  civtvkey , incident _dt 
into  temp  civt_nodups; 
select  count (*)  num_civtnodups 
from  civt^nodups; 

{group  by  vkey  to  attach  to  the  inspections  file.  Note  that  numdates  now 


B-lg8 


gives  the  number  of  unique  incident  dates  associated  with  that  vessel) 
select  civtvkey,  count (*)  poll_incids 
from  civt_nodups 
#  group  by  civtvkey 

order  by  poll_incids  desc 
into  temp  cirt_civtO; 

select  count (*)  num_cirtcivtO 
from  cirt_civtO; 

{drop  table  cirt_civtO;) 


# 
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1IIPOU.2.SQL 

{drop  table  pollinsp;) 

select  unique  vidtcrst.*,  cirt_civtO.* 
from  vidtcrst,  outer  cirt_civtO 
where  cirt_civtO . civtvkey=vidtcrst . iritvkey 
into  temp  pollinsp; 

(count  number  of  unique  inspection  vkeys  in  final  data  set) 

select  unique  iritvkey 

from  pollinsp 

into  temp  junkO; 

select  count (*)  chekpollinsp 

from  junkO; 

drop  table  junkO; 

(Count  number  of  casualty  vkeys  that  Are  in  vidtcrst) 
select  count (*)  vidtcrst_keep 
from  pollinsp 

where  civtvkey  is  not  null; 


unload  to  “/nfs/ttd32/optical/50b/trix.dat/mi.pollall“  delimiter  “ , • 

select  * 

from  pollinsp; 

(print  this  out  to  see  the  variable  names  and  format  for  use  in  ATOG  cmd  file) 

output  to  /users/gawande/mipollall .out 

select  * 

from  pollinsp 

where  reg_gt>100000; 
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IIID3139.SQL 

{MI  Cases} 


{This  program  After  resolution  of  Level  III  activity  discrimination  problem 
Use  of  Peggy's  mapping,  but  proportion  the  hours  equally  wherever  one  CRST 
activity  type  maps  into  more  thcui  one  Level  ill  activity.  See  also  readme.doc 
file.  The  way  this  is  accomplished  is  by  using,  instead  of  dummies  in  d3x 
variables,  we  use  fractions  to  proportion  the  hours.) 

{Another  modif  to  old  file  is  that  numdSx  is  deleted  since  no  longer  have 
dummies  from  Mike  but  have  the  fraction  that  proportions  the  hours  in  the 

mapping  cases.  Instead,  the  number  of  cases  in  "dSxcases*  serves 
the  same  purpose) 


{bevel  III  activities.  This  is  a  long  run.  Each  of  the  9  activities 
have  associated  with  them  hull,  machinery,  euid  admin  hours.  So  there 
are  9  separate  crst_tempO  runs.  They  are  then  joined  into  one  file 
comprising  these  3  inspections  for  each  of  the  9  activities.  This  broad 
file  is  then  joined  with  casualty  data  to  get  the  data  set  for  Level  III 
analysis) 

{This  is  Not  a  duration  analysis,  just  Poisson/Probit /Regression  analysis) 

{1.  Fill  in  for  d3x  in  3  places  appropriately,  to  change  Level  III  activity) 

{For  the  hours  of  inspection  equation  have  (i)  num_def  from  IRIT  and 
(ii)  indicators  for  inspection  types  for  other  CRST  inspections) 


{*******..*************.*****JJQUJ^g 

{First  we  make  a  "vkey  file*  which  is 
of  vkeys  {relevant  to  us)  to  use  for 
Level  III  activities:  31-39) 


INSPECTIONS* * ) 

the  base  file  with  a  full  list 
joining  the  9  erst  files  for 


(vkey  file) 
select 

irit.vkey  iritvkey 
from  irit,  erst 
where 

irit.micase[l,2]=*MI*  and 
irit . vkey [ 1 ,2] =*VN“  and 
crst.caseil,2]=*MI“  and 
crst.case[3,4)>=’89“  and 
erst .case=irit .micase 

group  by  irit.vkey 
into  temp  crst_vkey; 

select  count (*)  count_crstvkey 
from  crst_vkey; 


{Now  there  are  9  hours  of  inspection  files,  one  for  each  Level  III 
activity,  31-39.) 

{d31) 

select 

irit.vkey  d31vkey,  count (*)  d31cases, 

sum(hr_hull*d31)  d31hhr , sum (hr_mach*d31 )  d31mhr,sum(hr_admin*d31)  d31ahr, 
sum ( irit .num_def)  d31_ndef. 


{CRST  types  of  inspections;  only  Major  ones  to  show  these  Level  III  activities 
are  a  sub-part  of  these) 

suni(crst.dannual)  d31ann,  sum ( erst. dreinsp)  d31re,  sum(crst .dadmin)  d31ad, 
sum  (erst. dhull)  d31h,  sum ( erst. dconstr)  d3 1 con, sum ( erst. deert)  d31coi, 
sum (erst. dinit)  d31ini 

from  erst ,  irit 

{Note  the  date  >=  89.  This  is  since  only  post -91  casualties  are  being 
considered.  Hence  choose  a  year  with  which  I  am  comfortable  (years  to 
failure  is  not  badly  measured  so  that  it  affects  the  results,  can  try 
with  other  years  e.g.  90,  88  as  well).) 

(Important  Note:  If  the  analysis  is  by  vkey  And  iritdate,  then  Only 
consider  inspections  after  1/91) 
where 

(since  considering  activity  III.x  (fill  in  x  appropriately)) 
crst.d31>0  and 

irit.micase[l,2]=*MI‘  and 
irit .vkey [1,2] =*VN"  and 
crst.case[l,2)=*MI“  and 
erst .case [3 , 4) >="89 *  and 
erst .case=irit .micase 

group  by  irit. vkey 
into  temp  crst_d31; 

select  count (*)  countcrst_d31 
from  crst_d31; 

{d32) 

select 

irit .vkey  d32vkey,  count {*)  d32cases, 

sum(hr_hull*d32)  d32hhr,sum(hr_mach*d32)  d32mhr,sum(hr_admin*d32)  d32ahr, 
sum  ( irit .num_def )  d32_ndef, 

(CRST  types  of  inspections:  only  Major  ones  to  show  these  Level  III  activities 
are  a  sub-part  of  these) 

sum ( erst .dannual)  d32ann,  sum(crst .dreinsp)  d32re,  sum (erst .dadmin)  d32ad, 
sum (erst .dhull)  d32h,  sum (erst . dconstr )  d32con, sum (erst .deert )  d32coi, 
sum (erst .dinit)  d32ini 

from  erst,  irit 

(Note  the  date  >=  89.  This  is  since  only  post-91  casualties  are  being 
considered.  Hence  choose  a  year  with  which  I  am  comfortable  (years  to 
failure  is  not  badly  measured  so  that  it  affects  the  results,  can  try 
with  other  years  e.g.  90,  88  as  well).) 

(Important  Note:  If  the  analysis  is  by  vkey  And  iritdate,  then  Only 
consider  inspections  after  1/91) 
where 

(since  considering  activity  III.x  (fill  in  x  appropriately)) 
crst.d32>0  and 

irit.micaseIl,2]=''MI*  and 
irit.vkey[l,2i=*VN"  and 
erst .case! 1 ,2 j =*MI*  and 
crst.case[3,4]>='’89*  and 
erst . case=irit .micase 

group  by  irit. vkey 
into  temp  crst_d32; 
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select  count (*)  countcrst_d32 
from  crst_d32; 


{d33) 

select 

irit.vkey  d33vkey,  count (*)  d33cases, 

siiro(hr_hull*d33)  d33hhr,sum(hr_roach*d33)  d33mhr,sum(hr_adrain*d33)  d33ahr, 
sum(irit .num_def )  d33_ndef, 

(CRST  types  of  inspections:  only  Major  ones  to  show  these  Level  III  activities 
are  a  sub-part  of  these) 

sum ( erst .dannual)  d33ann,  sum ( erst. dreinsp)  d33re,  sum ( erst .dadmin)  d33ad, 
sum (erst .dhull)  d33h,  sum ( erst .dconstr)  d33con, sum(crst .deert)  d33coi, 
sum (erst .dinit)  d33ini 

from  erst,  irit 

{Note  the  date  >=  89.  This  is  since  only  post-91  casualties  are  being 
considered.  Hence  choose  a  year  with  which  I  am  comfortable  (years  to 
failure  is  not  badly  measured  so  that  it  affects  the  results,  can  try 
with  other  years  e.g.  90,  88  as  well).) 

(Important  Note:  If  the  analysis  is  by  vkey  And  iritdate,  then  Only 
consider  inspections  after  1/91) 
where 

(since  considering  activity  III.x  (fill  in  x  appropriately)} 
crst.d33>0  and 

irit .micase [1 ,2] =*MI "  and 
irit.vkey[l,2]="VN“  and 
crst.case[l,2)="MI*  and 
crst.casei3,4)>="89*  and 
erst .case=irit .micase 

group  by  irit.vkey 
into  temp  crst_d33; 

select  count (*)  countcrst_d33 
from  crst_d33; 


{d34} 

select 

irit.vkey  d34vkey,  count (*)  d34cases, 

sum(hr_hull*d34)  d34hhr , sum (hr_mach*d34 )  d34mhr , sum (hr_admin*d34 )  d34ahr, 
sum ( irit .num_def)  d34_ndef, 

(CRST  types  of  inspections:  only  Major  ones  to  show  these  Level  III  activities 
are  a  sub-part  of  these) 

sum (erst .dannual)  d34ann,  sum(crst. dreinsp)  d34re,  sum (erst .dadmin)  d34ad, 
sum (erst .dhull)  d34h,  sum (erst .dconstr)  d3 4 con, sum (erst .deert)  d34coi, 
sum (erst .dinit)  d34ini 

from  erst,  irit 

(Note  the  date  >=  89.  This  is  since  only  post-91  casualties  are  being 
considered.  Hence  choose  a  year  with  which  I  am  comfortable  (years  to 
failure  is  not  badly  measured  so  that  it  affects  the  results,  can  try 
with  other  years  e.g.  90,  88  as  well).) 

(Important  Note:  If  the  analysis  is  by  vkey  And  iritdate,  then  Only 
consider  inspections  after  1/91} 
where 

(since  considering  activity  III.x  (fill  in  x  appropriately)) 


crst.d34>0  and 


irit.inicase[l,2]  =  *MI‘  and 
irit.vkey[l,2]s*VN*  and 
crst.caseil,2] s'MI*  and 
crst.caset3,4]>='89"  auid 
crst.casesirit .micase 

group  ty  irit.vkey 
into  ten^  crst_d34; 

select  count {*)  countcrst_d34 
from  crst_d34; 


{d35) 

select 

irit.vkey  d35vkey,  count (*)  d35cases, 

siim(hr_hull*d35)  d3  5hhr,sum(hr_mach*d35)  d35inhr,sum(hr_admin*d35)  d35ahr, 
sum(irit.num_def )  d35_ndef, 

{CRST  types  of  inspections:  only  Major  ones  to  show  these  Level  III  activities 
are  a  sub-part  of  these) 

sum ( erst .dannual)  d35ann,  sum(crst.dreinsp)  d35re,  sum (erst . dadmin)  d35ad, 
sum { erst. dhull)  d35h,  sum (erst .dconstr)  d35con, sum(crst .deert)  d35coi, 
sum (erst .dinit)  d35ini 

from  erst,  irit 

{Note  the  date  >=  89.  This  is  since  only  post-91  casualties  are  being 
considered.  Hence  choose  a  year  with  which  I  am  comfortable  (years  to 
failure  is  not  badly  measured  so  that  it  affects  the  results,  can  try 
with  other  years  e.g.  90,  88  as  well).) 

(Important  Note;  If  the  analysis  is  by  vkey  And  iritdate,  then  Only 
consider  inspections  after  1/91) 
where 

{since  considering  activity  III.x  (fill  in  x  appropriately)) 
crst.d35>0  and 

irit .micase [ 1 , 2) ="MI“  and 
irit . vkey [ 1 , 2] =*VN"  and 
erst .case [1,2] =‘MI“  and 
erst .case [3 , 4) >=*89 ■  and 
erst .case=irit .micase 

group  by  irit.vkey 
into  temp  crst_d35; 

select  count (*)  countcrst_d35 
from  crst_d35; 


(d36) 

select 

irit.vkey  d36vkey,  count (*)  d36cases, 

sum{hr_hull*d36)  d36hhr ,sum(hr_mach*d36)  d36mhr,sum{hr_admin*d36)  d36ahr, 
sum{irit.num_def )  d36_ndef, 

(CRST  types  of  inspections:  only  Major  ones  to  show  these  Level  III  activities 
are  a  sub-part  of  these) 

sum (erst .dannual )  d36ann,  siim{crst .dreinsp)  d36re,  sum (erst .dadmin)  d36ad, 
sum (erst .dhull)  d36h,  sum(crst .dconstr)  d36con, sum (erst .deert)  d36coi, 
sum (erst .dinit)  d36ini 


{Note  the  date  >s  89.  This  is  since  only  post-91  casualties  are  being 
considered.  Hence  choose  a  year  with  which  I  am  comfortable  (years  to 
failure  is  not  badly  measured  so  that  it  affects  the  results,  can  try 
with  other  years  e.g.  90,  88  as  well).) 

(Important  Note:  If  the  analysis  is  by  vkey  And  iritdate,  then  Only 
consider  inspections  after  1/91} 
where 

(since  considering  activity  III.x  (fill  in  x  appropriately)) 
crst.d36>0  and 

irit.micase[l,2) ="MI‘  and 
irit.v)cey[l,2)  =  ‘VN*  and 
crst.case[l,2}='MI"  and 
crst.case[3,4)>=*89*  emd 
crst.casesirit .micase 

group  by  irit.vkey 
into  temp  crst_d36; 

select  count (*)  countcrst_d36 
from  crst_d36; 


{d37) 

select 

irit.vkey  d37vkey,  count (*)  d37cases, 

siuti(hr_hull*d37)  d37hhr , sum (hr_ffiach*d37 )  d37inhr , sum (hr_admin*d37 )  d37ahr, 
sum(irit .num_def )  d37_ndef, 

(CRST  types  of  inspections:  only  Major  ones  to  show  these  Level  III  activities 
are  a  sub-part  of  these) 

sum ( erst. dannual)  d37ann,  sum(crst.dreinsp)  d37re,  sum ( erst .dadmin)  d37ad, 
sum ( erst .dhull)  d37h,  sum ( erst. dconstr)  d37 con, sum (erst .deert)  d37coi, 
sum(crst. dinit)  d37ini 

from  erst,  irit 

(Note  the  date  >=  89.  This  is  since  only  post-91  casualties  are  being 
considered.  Hence  choose  a  year  with  which  I  am  comfortable  (years  to 
failure  is  not  badly  measured  so  that  it  affects  the  results,  can  try 
with  other  years  e.g.  90,  88  as  well).} 

(Important  Note:  If  the  analysis  is  by  vkey  And  iritdate,  then  Only 
consider  inspections  after  1/91} 
where 

(since  considering  activity  III.x  (fill  in  x  appropriately)} 
crst.d37>0  and 

irit.micase[l,2]=“MI‘  and 
irit.vkey[l,2)=*VN"  and 
crst.caseil,2}s*MI"  and 
crst.casei3,4)>=*89*  and 
erst .case=irit .micase 

group  by  irit.vkey 
into  temp  crst_d37; 


select  count (*)  countcrst_d37 
from  crst_d37; 


{<338) 

select 

irit.vkey  d38v)cey,  count  (*)  d38cases, 

suin(hr_hull*d38)  d3  8hhr,suni(hr_inach*d38)  d38inhr,suin(hr_adinin*d38)  d38ahr, 
suin(irit.nuin_def )  d38_ndef, 

(CRST  types  of  inspections;  only  Major  ones  to  show  these  Level  III  activities 
are  a  sub-part  of  these) 

sum ( erst, dannual)  d38ann,  sum ( erst. dreinsp)  d38re,  sum ( erst. dadmin)  d38ad, 
suro(crst.dhull)  d38h,  sum { erst. dconstr)  d38con, sum ( erst. deert)  d38coi, 
sum (erst. dinit)  d38ini 

from  erst,  irit 

{Note  the  date  >=  89.  This  is  since  only  post-91  casualties  are  being 
considered.  Hence  choose  a  year  with  which  I  am  comfortable  (years  to 
failure  is  not  badly  measured  so  that  it  affects  the  results,  can  try 
with  other  years  e.g.  90,  88  as  well).) 

{Important  Note:  If  the  analysis  is  by  vkey  And  iritdate,  then  Only 
consider  inspections  after  1/91) 
where 

{since  considering  activity  Ill.x  (fill  in  x  appropriately)) 
crst.d38>0  and 

irit.micase(l,2]=“MI*  and 
irit.vkey [1,2] =*VN*  and 
erst .case i 1 , 2] =*MI "  and 
erst .case [3 , 4] >= "89 "  and 
erst .case=irit .micase 

group  by  irit.vkey 
into  temp  crst_d38; 

select  count (*)  countcrst_d38 
from  crst_d38; 


{d39) 

select 

irit.vkey  d39vkey,  count (*)  d39cases, 

sum{hr_hull*d39)  d39hhr,sum(hr_mach*d39)  d39mhr,sum(hr_admin*d39)  d39ahr, 
sum ( irit  .niim_def  )  d39_ndef, 

(CRST  types  of  inspections:  only  Major  ones  to  show  these  Level  III  activities 
are  a  sub-part  of  these) 

sum (erst .dannual )  d39ann,  sum (erst .dreinsp)  d39re,  sum (erst .dadmin)  d39ad, 
sum ( erst .dhull)  d39h,  sum (erst. dconstr)  d3 9 con, sum (erst .deert)  d39coi, 
sum (erst .dinit)  d39ini 

from  erst,  irit 

(Note  the  date  >=  89.  This  is  since  only  post-91  casualties  are  being 
considered.  Hence  choose  a  year  with  which  I  am  comfortable  (years  to 
failure  is  not  badly  measured  so  that  it  affects  the  results,  can  try 
with  other  years  e.g.  90,  88  as  well).) 

{Important  Note:  If  the  analysis  is  by  vkey  And  iritdate,  then  Only 
consider  inspections  after  1/91) 
where 

{since  considering  activity  III.x  (fill  in  x  appropriately)) 
crst.d39>0  and 


irit .micase [1,2] ="MI"  and 
irit .vkey [1,2] =‘VN"  and 


crst.case[l,2]=*MI’  and 
crst.case[3,4j>=*89*  and 
•  crst.casesirit .micase 

group  by  irit.vkey 
into  temp  crst_d39; 

select  count {*)  countcrst_d39 
from  crst_d39; 


******************^^^~*^^^  files  into  a  big  file;  crst_tempO 


select  crst_vkey . iritvkey, 

^J^st_d31.*,crst_d32.*,crst_d33 .•,crst_d34.*,crst  d35.*,crst  d36.*, 
crst_d37 . * , crst_d38 . * , crst_d39 . *  “ 

0  from  crst_vkey, Outer  crst_d31, Outer  crst_d32 , Outer  crst_d33, 

Outer  crst_d34, Outer  crst_d35,Outer  crst_d36, 

Outer  crst_d37 .Outer  crst_d38, Outer  crst_d39 
where  crst_vkey . iritvkey=crst_d31.d31vkey  and 

crst_vkey . iritvkey=crst_d32 .d32vkey  and 
crst_vkey.iritvkey=crst_d33 .d33vkey  and 
crst_vkey . iritvkey=crst_d34 . d34vkey  and 
cr st_vkey . ir itvkey =crst_d3  5 . d3  Svkey  and 
^  crst_vkey . iritvkey=crst_d36 .d36vkey  and 

crst_vkey . iritvkey=crst_d37 .d37vkey  and 
cr st_vkey . ir itvkey =crst_d3  8 . d3  8vkey  and 
crst_vkey . iritvkey=crst_d39 . d39vkey 
into  temp  crst_tempO; 


Join  the  Inspections  file  (big  one)  with  vessel  characteristics  in  VIDT 

{This  file  joins  CRST_TEMPO  (agg  hours  by  vkey)  to  VIDT  to  identify  the  foil- 
service,  flag,  reg_gt,  bld_^r,  route.) 

(drop  table  vidtcrst;) 


select 

crst_tempO . * , 

vidt. service  service,  vidt.flag  flag,  vidt.reg_gt  reg_gt , 
year (vidt.bld_dt)  yearbld,  vidt. route  route, 

{These  have  many  nulls  and  are  used  only  for  model  of  inspection  if  adequate) 
vidt.dblside_typ,  vidt .dblbott_typ,  vidt .prop_typ,  vidt. design,  vidt.hull_mat 

from  crst_tempO,  vidt 
where 

crst_tempO . iritvkey=vidt .vkey  and 
( 

vidt .services ’FREIGHT  SHIP’  or  vidt .services ’PUB.  TANKSHIP/ BARGE’  or 
vidt .services ’TANK  SHIP’  or  ( (vidt. services ’PASSENGER’  or 
vidt .services "PASSENGER  SHIP’)  and  vidt .reg_gt>sl00) 

)  and 

vidt . f lags’US’ 
into  temp  vidtcrst; 


select  count (*)  num_vidtcrst 
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from  vidtcrst; 


^*****«************«««****«*««««**«*«««««***********************'*««******** 

Personnel  Casualties;  Construct  cirt_civtO,  join  with 
Inspections,  and  unload  to  disk 

************************************************************************** j 


{No  incident  date.  But  since  MINMOD,  post-1991 (few  91s  mostly  92,93)} 

{  Here,  casualty  data  is  assembled  from  CIVT  and  CIRT. 

CIRT,  and  CIVT  are  joined  by  (unique)  Mccase  and  select  out  only 
deep-draft  vessels  (hence  a  little  use  of  VIDT) .  Personnel  casualties  are 
constructed  from  CIRT  (which  has  no  vkey)  and  joined  to  CIVT  to  associate 
them  with  a  Vkey.  There  are  duplicate  Vkey  records  in  CIVT  (of  the  28,821 
records,  13,548  have  unique  Vkey),  so  we  need  to  choose  only  unique  records) 

{ 

drop  table  civt_dups; 
drop  table  civt_nodups; 
drop  table  cirt_civtO; 

) 

select 

civt .vkey  civtvkey, deaths , missing, injured, incident_dt 
from  cirt,  civt,  vidt 

(Note  that  in  CIVT,  the  vkey  is  not  unique  (in  VIDT  vkey  is  unique) .  Hence 
first  get  temp  table  civt_dups  (with  duplicates) .  Then  check  for  number 
of  duplicates  before  grouping  by  vkey) 
where 

cirt .mccasescivt .mccase  and 
civt .vkey =vidt .vkey  and 

(Jim  Law:  converstion  on  July  14,  1994.  The  following  query  contracts 
CIRT  to  cases  that  are  correct  (drop  mystery  and  inconsequential 
casualties).  ctf_ind=X  are  inconsequential  cases.  command_£ndorse  and 
command_cls  are  mutually  exclusive.  command_endorse=X  implies  that 
case  has  been  reviewed  and  fwd  to  dt/HQ  for  review.  command_cls=X  means  that 
case  is  done  and  does  not  require  review  at  dt/HQ.  command_endorse=X  are 
legit  cases  and  all  should  be  considered.  Of  the  command_cls=X  cases,  only 
those  with  ctf_ind=null  should  be  considered  since  ctf_ind=X  implies  an 
inconsequential  case.  ) 

(cirt . command_endorse="X" 

or  (cirt .command_cls=*X"  and  cirt.ctf_ind  is  null))  and 

(cirt .deaths>0  or  cirt .missing>0  or  cirt . injured>0 )  and 
(  civt. services "FREIGHT  SHIP’  or  civt. services "PUB.  TANKSHIP /BARGE’ 
or  civt  .services ’TAIJK  SHIP’  or 

( (civt . services ’PASSENGER’  or  civt .services ’PASSENGER  SHIP’)  and 
vidt .reg_gt>slO0)  ) 
into  temp  civt_dups; 
select  count (*)  num_civtdups 
from  civt_dups; 

(This  set  of  statements  selects  non-duplicate  rows  in  civt_dup.  If  group 
by  just  civtvkey, incident_dt,  get  almost  same  rows  as  this) 
select  *  from  civt_dups 

group  by  civtvkey, incident _dt,  deaths , missing, injured 

into  temp  civt_nodups ; 

select  count (*)  num_civtnodups 

from  civt_nodups; 


(group  by  vkey  to  attach  to  the  inspections  file.  Note  that  numdates  now 
gives  the  number  of  unique  incident  dates  associated  with  that  vessel} 
select  civtvkey,  sum{deaths)  deaths,  sum(missing)  missing, 
sum(injured)  injured,  count (unique  incident_dt)  numdates 

from  civt_nodups 
group  hy  civtvkey 

order  by  deaths  desc,  injured  desc,  numdates  desc 
into  temp  cirt_civtO; 

select  count {*)  nuin_cirtcivtO 
from  cirt_civtO; 

(drop  table  cirt_civtO; } 

(drop  table  persinsp,*} 

select  unique  vidtcrst.*,  cirt_civtO.* 
from  vidtcrst,  outer  cirt_civtO 
where  cirt_civtO . civtvkeysvidtcrst . iritvkey 
into  temp  persinsp; 

select  unique  iritvkey 

from  persinsp 

into  temp  junkO; 

select  count (*)  chekpersinsp 

from  junkO; 

drop  table  junkO; 

(Count  number  of  casualty  vkeys  that  Are  in  vidtcrst) 
select  count (*)  vidtcrst_keep 
from  persinsp 

where  civtvkey  is  not  null; 


unload  to  Vnf s/ttd32/optical/50b/trix.dat/mi_d3139 .pers"  delimiter 

select  * 

from  persinsp; 

select  count (*)  numrows,  sum(d31hhr)  d31hhr,  sum(d31mhr)  d31mhr, 

sum(d31ahr)  d31ahr 
from  persinsp; 

select  count  (*)  niimrows,  svim(d39hhr)  d39hhr,  sum(d39mhr)  d39mhr, 

sum(d39ahr)  d39ahr 
from  persinsp; 

(print  this  out  for  var  names  to  an  output  file  since  need  also  to  print  for 
pollution  data  set) 

output  to  /users2/gawande/mid3139_pers .out 
select  * 
from  persinsp 
where  reg_gt>100000; 


^  *********************************************  ***********„**^„,,,,^,j^^^^^^^^^ 

Pollution  Casualties:  Construct  cirt_civtO,  join  with 
Inspections,  and  unload  to  disk 

************************************************************** 

(  Here,  pollution  casualty  data  is  assembled  from  CIVT  and  CIRT. 

CIRT,  and  CIVT  are  joined  by  (unique)  Mccase  and  select  out  only 


deep-draft  vessels  (hence  a  little  use  of  VIDT) .  Pollution  incidents  are 
constructed  from  CIRT  (which  has  no  vkey)  euid  joined  to  CIVT  to  associate 
them  with  a  Vkey.  There  are  duplicate  Vkey  records  in  CIVT  (of  the  28,821 
records,  13,548  have  unique  Vkey),  so  we  need  to  choose  only  unique  records) 

drop  table  civt_dups; 
drop  table  civt.nodups ; 
drop  tedDle  cirt_civtO; 

select 

civt.vkey  civtvkey,  incident_dt 
from  cirt,  civt,  vidt 

(Note  that  using  VIDT  for  the  reg_gt>100  info  and  hence  need  Unique  in  select 
statement  since  in  CIVT,  the  vkey  is  not  unique  (in  VIDT  vkey  is  unique) ) 
where 

cirt .mccasescivt .mccase  and 
civt .vkeysvidt. vkey  and 
civt,flag=’US*  and 

(Jim  Law;  converstion  on  July  14,  1994.  The  following  query  contracts 
CIRT  to  cases  that  are  correct  (drop  mystery  and  inconsequential 
casualties).  ctf_ind=X  are  inconsequential  cases.  command_endorse  and 
command_cls  are  mutually  exclusive.  command_endorse=X  implies  that 
case  has  been  reviewed  and  fwd  to  dt/HQ  for  review.  command_cls=X  means  that 
case  is  done  and  does  not  require  review  at  dt/HQ.  command_endor se=X  are 
legit  cases  and  all  should  be  considered.  Of  the  command_cls=X  cases,  only 
those  with  ctf_ind=null  should  be  considered  since  ctf_ind=X  implies  an 
inconsequential  case.  ) 

(cirt .command_endorse=*X" 

or  (cirt .command_cls=*X*  and  cirt.ctf_ind  is  null))  and 
cirt .mcpd_ind>=l  and 

(cirt .pol_ind="X’  or  pri_nature= *  POLLUTION* )  and 

(To  select  Only  BAD  cases,  unblock  this  statement) 

(severity  in  ( ‘MAJOR* , "POTENT" , "MEDIUM" )  and) 

(  civt.service="FREIGHT  SHIP*  or  civt . service=" PUB .  TANKSHIP/BARGE" 
or  civt . service= "TANK  SHIP"  or 

( (civt . service=" PASSENGER"  or  civt .s er vice =" PASSENGER  SHIP")  and 
vidt .reg_gt>=100)  ) 

into  temp  civt_dups; 
select  count (*)  num_civtdups 
from  civt_dups; 

(This  set  of  statements  selects  non-duplicate  rows  in  civt_dup.  If  group 
by  just  civtvkey, incident_dt ,  get  almost  same  rows  as  this) 
select  *  from  civt_dups 
group  by  civtvkey , incident _dt 
into  temp  civt_nodups ; 
select  count (*)  num_civtnodups 
from  civt_nodups; 

(group  by  vkey  to  attach  to  the  inspections  file.  Note  that  numdates  now 
gives  the  number  of  unique  incident  dates  associated  with  that  vessel) 
select  civtvkey,  count (*)  poll_incids 
from  civt_nodups 
group  by  civtvkey 
order  by  poll_incids  desc 
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into  temp  cirt_civtO; 


select  count (*)  num_cirtcivtO 
from  cirt_civtO; 

{drop  table  cirt_civtO;} 

{drop  table  pollinsp;} 

select  unique  vidtcrst.*,  cirt_civtO.* 
from  vidtcrst,  outer  cirt_civtO 
where  cirt_civtO . civtvkeysvidtcrst . iritvkey 
into  temp  pollinsp; 

{count  number  of  unique  inspection  vkeys  in  final  data  set) 

select  unique  iritvkey 

from  pollinsp 

into  temp  junkO; 

select  count (*)  chekpollinsp 

from  junkO; 

drop  table  junkO; 

{Count  number  of  casualty  vkeys  that  Are  in  vidtcrst) 
select  count (*)  vidtcrst_keep 
from  pollinsp 

where  civtvkey  is  not  null; 


unload  to  Vnf s/ttd32/optical/50b/trix.dat/mi_d3139 .pollall"  delimiter 

select  * 

from  pollinsp; 

select  count (*)  numrows,  sum(d31hhr)  d31hhr,  sum(d31rahr)  d31mhr, 

sum(d31ahr)  d31ahr 
from  pollinsp; 

select  count (*)  numrows,  sum(d39hhr)  d39hhr,  sum(d39mhr)  d39mhr, 

sum(d39ahr)  d39ahr 
from  pollinsp; 

{print  this  out  for  var  names  to  an  output  file  ) 

output  to  /users2/gawande/mid3139_poll .out 

select  * 

from  pollinsp 

where  reg_gt>100000; 


PSINSPl.SQL 

{This  joins  BRST  and  AVST  by  case  and  aggregates  BRST  hours  by  AVST's  vkey) 

(drop  table  brst_teinpO) 

select 

avst.vkey  avstvkey, 

count  (*)  nuincases,suin{hr_reg)  reg_hr,suin(hr_res)  res_hr, 
suin(hr_boat)  boat_hr,  sum(hr_air)  air_hr, 
suin(hr_regadinin)  adit\in_hr,suin(hr_regtvl)  travel_hr, 
suin(hr_other)  other_hr, 

sum (nuin_def )  avst_def ,  svun  (num_act )  avst_act , 

(Level  II  and  III  Dummies  from  Mike  based  on  Peggy  Thurber's  mapping 
Here  only  II. B  activities  since  only  PS  activities) 
sum(d2bl)  numd2bl,sum(d2b2)  numd2b2,sum(d2b3)  numd2b3, 

(Note  that  35,  36,  and  38  for  US  Flag  only  needed,  but  am  including  it  here) 
sum(d31)  numd31,  sum{d32)  numd32,  sum(d33)  numd33,  sum(d34)  numd34, 
sum(d35)  numd35,  sum(d36)  numd36,  sum(d37)  numd37,  sum(d38)  numd38, 
sum(d39)  numd39 
from  brst,  avst 

(Note  the  date  >=  89.  This  is  since  only  post-91  casualties  are  being 
considered.  Hence  choose  a  year  with  which  I  am  comfortable  (years  to 
failure  is  not  badly  measured  so  that  it  affects  the  results,  can  try 
with  other  years  e.g.  90,  88  as  well).) 
where 

brst .pscase[3 , 4] >="89"  and 
brst .pscase=avst .pscase 

group  by  avst.vkey 
into  temp  brst_tempO; 

select  count (*)  countbrst_tempO 
from  brst_tempO; 


PSINSPS.SQIi 

{This  file  joins  BRST_TEMPO  (agg  hours  by  vkey)  to  VIDT  to  identify  the  foil- 
service,  flag,  reg_gt,  bld_yr,  route.) 

(drop  table  vidtbrst;) 

select 

brst_tempO . * , 

vidt. service  vidtservice,  vidt.flag  vidtflag,  vidt.reg_gt  reg_gt, 
year(vidt.bld_dt)  yearbld,  vidt. route  route, 

{These  have  many  nulls  and  are  used  only  for  model  of  inspection  if  adequate) 
vidt.dblside_typ,  vidt .dblbott_typ,  vidt .prop_typ,  vidt. design,  vidt. hull  mat 
from  brst_t«npO,  vidt  ~ 

where 

brst_tempO . avst vkey =vidt . vkey  and 
(vidt.flag=‘US*  and  ( 

vidt. services "FREIGHT  SHIP"  or  vidt .services "PUB.  TANKSHIP/BARGE"  or 
vidt .services "TANK  SHIP"  or  ( (vidt. services "PASSENGER"  or 
vidt. services -passenger  SHIP")  and  vidt .reg_gt>si00 )  )  ) 

or 

(vidt.flag  not  in  ("US")  and  ( 

vidt .services "FREIGHT  SHIP"  or  vidt .services "PUB.  TANKSHIP/BARGE"  or 
vidt .services "TANK  SHIP"  or  vidt . services"PASSENGER"  or 
vidt .services "PASSENGER  SHIP"  )  ) 

) 

into  temp  vidtbrst; 


select  count (*) 
from  vidtbrst; 


PSPERSl.SQL 

{Be  sure  to  run  PSINSPl  and  PSINSP2  before  these  two  progs) 

{No  incident  date.  But  since  MINMOD,  post-1991 (few  91s  mostly  92,93)) 

{  Here,  casualty  data  is  assembled  from  CIVT  ^md  CIRT. 

CIRT,  and  CIVT  are  joined  by  (unique)  Mccase  emd  select  out  only 
deep-draft  vessels  (hence  a  little  use  of  VIDT) .  Personnel  casualties  are 
constructed  from  CIRT  (which  has  no  vkey)  and  joined  to  CIVT  to  associate 
them  with  a  Vkey.  There  are  duplicate  Vkey  records  in  CIVT  (of  the  28,821 
records,  13,548  have  unique  Vkey),  so  we  need  to  choose  only  unique  records) 

{ 

drop  tcible  civt_dups; 
drop  table  civt_nodups ; 
drop  table  cirt_civtO; 

) 

select 

c i vt . vkey  c i vt vkey , deaths , missing, injured, inc ident_dt 
from  cirt,  civt,  vidt 

(Note  that  in  CIVT,  the  vkey  is  not  unique  (in  VIDT  vkey  is  unique) .  Hence 
first  get  temp  table  civt_dups  (with  duplicates) .  Then  check  for  number 
of  duplicates  before  grouping  by  vkey) 
where 

cirt .mccase=civt .mccase  and 
civt .vkey =vidt .vkey  and 

(Jim  Law;  converstion  on  July  14,  1994.  The  following  query  contracts 
CIRT  to  cases  that  are  correct  (drop  mystery  and  inconsequential 
casualties).  ctf_ind=X  are  inconsequential  cases.  command_endorse  and 
command_cls  are  mutually  exclusive.  command_endorse=X  implies  that 
case  has  been  reviewed  and  fwd  to  dt/HQ  for  review.  command_cls=X  means  that 
case  is  done  and  does  not  require  review  at  dt/HQ.  command_endorse=X  are 
legit  cases  and  all  should  be  considered.  Of  the  command_cls=X  cases,  only 
those  with  ctf_ind=null  should  be  considered  since  ctf_ind=X  implies  an 
inconsequential  case.  ) 

(cirt . command_endorse=’X“ 

or  (cirt .command_cls="X"  and  cirt.ctf_ind  is  null))  and 

(cirt .deaths>0  or  cirt .missing>0  or  cirt . injured>0)  and 
(  civt .service= "FREIGHT  SHIP"  or  civt .service=" PUB.  TANKSHIP/BARGE" 
or  civt .services "TANK  SHIP"  or 

( (civt. services "PASSENGER"  or  civt .services "PASSENGER  SHIP")  and 
vidt.reg_gt>siOO)  ) 
into  temp  civt_dups; 
select  count (*)  num_civtdups 
from  civt_dups; 

(This  set  of  statements  selects  non-duplicate  rows  in  civt_dup.  If  group 
by  just  civtvkey, incident _dt,  get  almost  same  rows  as  this) 
select  •  from  civt_dups 

group  by  civtvkey, incident _dt,  deaths, missing, injured 

into  temp  civt_nodups; 

select  count (*)  num_civtnodups 

from  civt_nodups; 

(group  by  vkey  to  attach  to  the  inspections  file.  Note  that  numdates  now 
gives  the  number  of  unique  incident  dates  associated  with  that  vessel) 
select  civtvkey,  sum(deaths)  deaths,  sum(missing)  missing, 
sum(injured)  injured,  count (unique  incident_dt)  numdates 
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from  civt_nodups 
group  by  civtvkey 

order  by  deaths  desc,  injured  desc,  numdates  desc 
into  temp  cirt_civtO; 

select  count {*)  num_cirtcivtO 
from  cirt_civtO; 

{drop  table  cirt_civtO;) 


PSPBR52.SQL 

{drop  table  persinsp;) 

select  unique  vidtbrst.*,  cirt_civtO . * 
from  vidtbrst,  outer  cirt_civtO 
where  cirt_civtO . civtvkeysvidtbrst .avstvkey 
into  temp  persinsp; 

select  unique  avstvkey 

from  persinsp 

into  temp  junkO; 

select  count (*)  chekpersinsp 

from  junkO; 

drop  table  junkO; 

(Count  number  of  casualty  vkeys  that  Are  in  vidtbrst) 
select  count (*)  vidtbrst.keep 
from  persinsp 

where  civtvkey  is  not  null; 


unload  to  •/nfs/ttd32/optical/50b/trix.dat/ps.pers*  delimiter 

select  ♦ 

from  persinsp; 

{print  this  out  for  var  names  to  an  output  file) 

output  to  /users/gawande/pspers.out 

select  * 

from  persinsp 

where  reg_gt>100000 ; 


PSPBRS3.SQL 

{Check  to  see  if  numbers  make  sense) 

select  count (*),  avg (avst_def )  avg_avstdef ,sum(avst_def )  sum_avstdef, 
avg (avst_act)  avg_avstact,  sum(avst_act)  sum_avstact, 
avg (numcases)  avg_numcases ,  sum(numcases)  sum_numcases 
from  persinsp 


PSPOLLl.SQL 


{US  and  Foreign  flag  casualties.  Deep  draft  but  includes  Passenger<100) 

{Be  sure  to  run  PSINSPl  and  PSINSP2  before  these  two  progs) 

{  Here,  pollution  casualty  data  is  assembled  from  CIVT  and  CIRT. 

CIRT,  and  CIVT  are  joined  by  (unique)  Mccase  and  select  out  only 
deep-draft  vessels  (hence  a  little  use  of  VIDT) .  Pollution  incidents  are 
constructed  from  CIRT  (which  has  no  vkey)  and  joined  to  CIVT  to  associate 
them  with  a  Vkey.  There  are  duplicate  Vkey  records  in  CIVT  (of  the  28,821 
records,  13,548  have  unique  Vkey),  so  we  need  to  choose  only  unique  records) 

drop  table  civt_dups; 
drop  table  civt^nodups; 
drop  table  cirt_civtO; 

select 

civt.vkey  civtvkey,  incident_dt 
from  cirt,  civt,  vidt 

(Note  that  using  VIDT  for  the  reg_gt>100  info  and  hence  need  Unique  in  select 
statement  since  in  CIVT,  the  vkey  is  not  unique  (in  VIDT  vkey  is  unique) ) 
where 

cirt .mccase=civt .mccase  and 
civt .vkey=vidt .vkey  and 

{Jim  Law:  converstion  on  July  14,  1994.  The  following  query  contracts 
CIRT  to  cases  that  are  correct  (drop  mystery  and  inconsequential 
casualties).  ctf_ind=X  are  inconsequential  cases.  command_endorse  and 
commanded s  are  mutually  exclusive.  command_endorse=X  implies  that 
case  has  been  reviewed  and  fwd  to  dt/HQ  for  review.  command_cls=X  means  that 
case  is  done  and  does  not  require  review  at  dt/HQ.  command_endorse=:X  are 
legit  cases  and  all  should  be  considered.  Of  the  command_cls=:X  cases,  only 
those  with  ctf_ind=null  should  be  considered  since  ctf_ind=X  implies  an 
inconsequential  case.  ) 

(cirt . command_endorse="X*' 

or  (cirt  .command_cls  =  *'X*'  and  cirt.ctf_ind  is  null))  and 
cirt .mcpd_ind>=l  and 

(cirt  .pol_ind='’X“  or  pri_nature= " POLLUTION" )  and 


(To  select  Only  BAD  cases,  unblock  this  statement) 

(severity  in  ( "MAJOR" , "POTENT" , "MEDIUM" )  and) 

(  civt .service=" FREIGHT  SHIP"  or  civt . service="PUB .  TANKSHIP/BARGE" 
or  civt .service=" TANK  SHIP"  or 

civt .service=" PASSENGER"  or  civt . service=" PASSENGER  SHIP") 

into  temp  civt_dups; 
select  count (*)  num_civtdups 
from  civt_dups; 

(This  set  of  statements  selects  non-duplicate  rows  in  civt_dup.  If  group 
by  just  civtvkey , incident_dt,  get  almost  same  rows  as  this) 
select  ^  from  civt_dups 
group  by  civtvkey , incident^dt 
into  temp  civt_nodups; 
select  count ( * )  num_civtnodups 
from  civt_nodups; 


(group  by  vkey  to  attach  to  the  inspections  file.  Note  that  numdates  now 
gives  the  number  of  unique  incident  dates  associated  with  that  vessel) 
select  civtvkey,  count (*)  poll_incids 
from  civt_nodups 
group  by  civtvkey 
order  by  poll_incids  desc 
into  temp  cirt_civtO; 

select  count (*)  num_cirtcivtO 
from  cirt_civtO; 

(drop  table  cirt_civtO;} 


PSPOIiL2.SQL 

{drop  table  pollinsp;} 

select  unique  vidtbrst.*,  cirt_civtO.* 
from  vidtbrst,  outer  cirt_civtO 
where  cirt_civtO . civtvkey=vidtbrst .avstvkey 
into  temp  pollinsp; 

(count  number  of  unique  inspection  vkeys  in  final  data  set} 

select  unique  avstvkey 

from  pollinsp 

into  temp  junkO; 

select  count {*)  chekpollinsp 

from  junkO; 

drop  table  junkO; 

(Count  number  of  casualty  vkeys  that  Are  in  vidtcrst) 
select  count {*)  vidtbrst_keep 
from  pollinsp 

where  civtvkey  is  not  null; 


unload  to  * /nf s/ttd32/optical/50b/trix.dat /ps .pollall "  delimi 

select  • 

from  pollinsp; 

{print  this  out  for  var  names  to  an  output  file) 

output  to  /users/gawande/pspollall .out 

select  * 

from  pollinsp 

where  reg_gt>100000 ; 


PROGRAMS  FOR  DURATION  DATA  SETS 


CCTR^Xl.SQL 

{MI  Cases) 

{After  conversation  with  wyman  Briggs  on  18  July,  1994:  Use  IRIT  indicators 
for  inspection  types  for  Level  II. A. 1-3  activities,  and  use  Peggy  Thurber's 
mapping  (grouped  by  Mike  into  d31-d39  indicators)  for  Level  III  activities) 

{1.  Change  inspection  from  IRIT  appropriately:  cert_inspect  for  COI, 
reinspect  for  Reinspection,  and  hull  for  hull  exam. 

2.  Change  the  Unload  to  file  else  WILL  WRITE  OVER) 

{Only  post  1991  (incl)  inspections  since  duration  since  last  inspection  to 
casualty,  and  first  casualty  in  Minmod  is  02/91} 

{ 

Duration  data:  The  idea  is  as  follows. 

The  Ihs  variable  is  duration  from  the  Last  inspection  till  date  of  casualty. 
Analysis  will  be  by  Level  II  activities:  (i)  3  MI  activities:  COI,  Annual 
Vessel  Reinspection,  Hull  Exam,  and  (ii)  3  PS  activities:  Annual  Foreign 
Freight  Exam,  Annual  Foreign  Tanker  Vessel  Exam,  Annual  Foreign  Passenger. 

The  same  vessel  inspected  (using  same  activity)  twice  is  treated  as  two 
different  vessels,  and  as  two  observations  (i.e.  Hence  large  data  set.) 

If  the  vessel  has  no  casualty  after  an  activity,  the  Ihs  takes  the  value  of 
duration  till  the  next  activity  of  the  same  type.  The  problem  is  that 

(a)  casualty  may  not  have  anything  to  do  with  that  activity.  For,  example 
pri_nature  in  CIRT  may  possess  such  info.  This  can  (should?)  be  incorporated 
by  attributing  only  those  casualties  to  that  activity.  This  requires  that 
pri_nature  should  be  mapped  into  Level  II  activities.  This  mapping  will 
probably  be  one (pri^nature)  to  many(Level  II  activities). 

(b)  should  we  be  taking  duration  till  next  activity  of  the  same  type,  or  any 
activity.  If  we  take  into  consideration  pri_nature  and  ascribe  only  the 
•casualties  connected  with  that  activity  in  computing  the  Ihs  variable,  then 
we  take  duration  till  next  activity  of  the  Same  type  if  no  casualty  in  the 
meantime.  Else  not  so  easy,  since  casualty  may  be  of  a  nature  attributable 
to  another  kind  of  activity.  Even  if  pri_nature  used,  probably  not  too  easy, 
since  mapping  is  probably  one (pri^nature)  to  many  or  all (Level  II  activity). 
So  problem  still  unanswered. 

Solution:  We  take  the  simple  road.  All  casualties,  not  just  those 

attributable  directly  to  the  Level  II  activity  is  considered.  This  is  OK 
since  anyway  a  large  range  of  inspections  map  into  a  Level  II  activity,  and 
Many  pri_natures  map  into  this  set  of  inspections.  Also  since  some  vessels 
are  subject  to  a  Level  II  activity  sooner  than  others,  rather  than  take  the 
duration  between  two  inspections,  in  the  event  of  No  casualty  we  take  the 
duration  between  the  inspection  date  and  1/1/1995.  The  problem  is  that  the 
closer  the  inspection  to  that  date,  the  shorter  the  duration  recorded.  But 
mainly,  it  is  convenient,  the  duration  so  computed  does  not  exceed  the 
duration  where  there  Are  casualties,  and  since  the  last  inspection  was  in 
12/1993,  this  simplification  is  not  expected  to  qualitatively  change  any 
results . 

rhs  variable  is  still  number  of  hours  devoted  to  that  activity  etc.  The 
main  difference  is  the  age  of  the  vessel,  which  is  to  be  computed  at  the  time 
of  casualty,  or  at  the  time  of  next  inspection  if  no  casualty. 

} 

{For  the  hours  of  inspection  equation  have  (i)  num_def  from  IRIT  and 
(ii)  indicators  for  inspection  types  for  other  CRST  inspections) 

of  INSPECTIONS*^*****’^**’^* ’►*♦*******♦*) 

select 

irit.vkey  iritvkey,  irit.dt  iritdate. 


B-212 


hull_hr,suin{hr_inach)  mach.hr, 
suin(hr_extra)  ext ra_hr, sum (hr_t extra)  textra  hr 
““'•'t.tr.v.D  travel.hr,suB(hr.ttravel)  ttravellhr. 

sumUrit  .num_def )  nuro_def, 

{Sum  of  Mike|s  dummies  (based  on  Peggy's  mapping)  gives  the  total  of 
sub-inspections  for  that  Level  II  activity  on  that  date) 
n^d2al,sum(d2a2)  numd2a2,sum(d2a3 )  numd2a3, 

(CRST  types  of  inspections:  indicators) 

simJcrct crstannual,  sum  (erst  .dreinsp)  erstreinsp, 

^  crsthull. sum { erst. dcoc)  crstcoc 

sum(crst .dconstr )  erstconstr, sum (erst. deert)  crstcert, 

erstinit,  sum  ( erst,  dmach)  erstmach,  sum  (erst,  ddeficit)  erstdef 
sum(crst.dother)  crstother,sum(crst.drest)  erstrest  erstaer, 

from  erst,  irit 


{Since  first  casualty  case  is  02/91  and 
inspections  after  1991  are  considered, 
inspections  after  1989  are  considered) 


duration  is  from  last  inspection,  only 
This  is  unli)ce  the  Poisson  stuff  where 


where 

{activity  1I.A.1=C0I) 
irit .cert_inspect=“X"  and 


irit.micase[l,2]="MI“  and 
irit.v)tey[l,2]  =  "VN“  and 
erst .case [1,2] = -MI-  and 
{since  first  casualty  case  is  02 
crst.case[3,4]>=*91*  and 
erst .case=irit .micase 


91  and  duration  is  from  last  inspec) 


group  by  irit.v)cey,  irit.dt 
into  temp  crst_tempO; 

select  count (*)  count crst_tempO 
from  crst_tempO; 


{This  file  joins  CRST_TEMP0  (agg  hours  by  vkey) 
service,  flag,  reg_gt,  bld_yr,  route.) 


to  VIDT  to  identify  the  foil: 


(drop  table  vidterst;) 


select 

crst_tempO.*, 

vidt. service  service,  vidt.flag  flag,  vidt.reg  gt  rea  at 
year (vidt.bld_dt)  yearbld,  vidt. route  route, 

inspection  if  adequate) 

vidt.dblside_typ,  vidt.dblbott_typ,  vidt . prop_typ ,  vidt. design,  vidt .hull_mat 


from  crst_tempO,  vidt 
where 


ctst_tempO . iritvkey=vidt .vkey  and 


vidt .services "FREIGHT  SHIP" 
vidt .services"TANK  SHIP"  or 
vidt . services " PASSENGER  SHI P 
)  and 

vidt .flags"US" 
into  temp  vidterst; 


or  vidt. services "PUB.  TANKSHIP/ BARGE" 
( (vidt. services "PASSENGER"  or 
•)  and  vidt .reg_gt>si00) 


or 


select  count (*) 
from  vidtcrst; 


{*********************  *******PgJ,gQJJJJg2^ 


Casualties************************) 


{  Here,  casualty  data  is  assembled  from  CIVT  and  CIRT. 

CIRT,  and  CIVT  are  joined  by  (unique)  Mccase  and  select  out  only 
deep-draft  vessels  (hence  a  little  use  of  VIDT) .  Personnel  casualties  are 
constructed  from  CIRT  (which  has  no  vkey)  and  joined  to  CIVT  to  associate 
them  with  a  Vkey.  There  are  duplicate  Vkey  records  in  CIVT  (of  the  28,821 
records,  13,548  have  unique  Vkey),  so  we  need  to  choose  only  unique  records) 

drop  table  civt_dups; 
drop  table  civt_nodups ; 
drop  table  cirt_civtO; 

) 

select 

civt .vkey  civtvkey, deaths, missing, injured, cirt . incident_dt  cirtdate 
from  cirt,  civt,  vidt 

(Note  that  in  CIVT,  the  vkey  is  not  unique  (in  VIDT  vkey  is  unique) .  Hence 
first  get  temp  table  civt_dups  (with  duplicates) .  Then  check  for  number 
of  duplicates  before  grouping  by  vkey) 
where 

cirt .mccase=civt .mccase  and 
civt .vkey =vidt .vkey  and 

(Jim  Law:  converstion  on  July  14,  1994.  The  following  query  contracts 
CIRT  to  cases  that  are  correct  (drop  mystery  and  inconsequential 
casualties).  ctf_ind=X  are  inconsequential  cases.  command_endorse  and 
command_cls  are  mutually  exclusive.  command_endorse=X  implies  that 
case  has  been  reviewed  and  fwd  to  dt/HQ  for  review.  command_cls=X  means  that 
case  is  done  and  does  not  require  review  at  dt/HQ.  command_endorse=X  are 
legit  cases  and  all  should  be  considered.  Of  the  command_cls=X  cases,  only 
those  with  ctf_ind=null  should  be  considered  since  ctf_ind=X  implies  an 
inconsequential  case.  ) 

(cirt  .command_endorse=*X'' 

or  (cirt .command_cls=*X"  and  cirt.ctf_ind  is  null))  and 

(cirt .deaths>0  or  cirt .missing>0  or  cirt . injured>0)  and 
(  civt .service=’ FREIGHT  SHIP"  or  civt . service=" PUB.  TANKSHIP /BARGE" 
or  civt .service=" TANK  SHIP"  or 

( (civt.service=*PASSENGER"  or  civt .services "PASSENGER  SHIP")  and 
vidt.reg_gt>slOO)  ) 
into  temp  civt_dups; 
select  count (*)  num_civtdups 
from  civt_dups; 

(This  set  of  statements  selects  non-duplicate  rows  in  civt_dup.  If  group 
by  just  civtvkey, incident_dt ,  get  almost  same  rows  as  this) 
select  *  from  civt_dups 

group  by  civtvkey , cirtdate,  deaths, missing, injured 
into  temp  civt_nodups; 
select  count (*)  num_civtnodups 
from  civt_nodups; 

(group  by  vkey  to  attach  to  the  inspections  file.  Note  that  numdates  now 
gives  the  number  of  unique  incident  dates  associated  with  that  vessel) 


select  civtvkey,  cirtdate, 

sum (deaths )  deaths , sum (missing )  missing , sum { injured)  injured 
from  civt_nodups 
group  by  civtvkey , cirtdate 
order  by  deaths  desc,  injured  desc 
into  temp  cirt_civt De¬ 
select  count (*)  num_cirtcivtO 
from  cirt_civtO; 

{drop  table  cirt_civtO;) 


(Here  we  do  the  last  part:  join  inspection  and  casualty  tables,  and  Unload 
2  Personnel  casualty  files  (one  for  M/Y  and  one  for  just  Y) ) 


{ 

drop  table 
drop  table 
drop  table 
drop  table 
drop  table 
drop  table 
drop  table 
drop  table 
drop  table 


persinsp; 
inspect ; 
inspect^MY; 
inspect_Y; 
justvkey ; 
vesschar  ; 
durl; 
dur2  ; 
dur3; 


) 

(I.  Join  hours  and  casualties. 

vidtcrst  sorted  by  iritvkey , iritdate,  and  cirt^civtO  is  sorted  by  civtvkey, 
cirtdate.  Hence  there  are  duplicate  vkeys  in  both  and  the  next  join 
statement  produces  a  small  cartesian  explosion,  but  this  is  ok  since  we  Need 
this  explosion  because 

(i)  we  need  to  match  only  where  cirtdate>iritdate,  and 

(ii)  we  need  to  compute  MIN  duration  among  the  cartesian  matches) 


{This  first  set  of  statements  for  making  persinsp  and  checking) 
select  unique  vidtcrst.*,  cirt_civtO,* 
from  vidtcrst,  outer  cirt_civtO 
where  cirt_civtO .civtvkey=vidtcrst . iritvkey  and 
cirt_civtO .cirtdate>=vidtcrst . iritdate 
into  temp  persinsp; 

select  count (*)  num_persinsp  from  persinsp; 

(Count  number  of  unique  (iritvkey, iritdate)  in  persinsp) 
select  unique  iritvkey , iritdate  from  persinsp  into  temp  junkO; 
select  count (*)  numunia  persinsp  from  junkO; 
drop  table  junkO; 

(Count  number  of  casualty  vkeys  that  Are  in  vidtcrst) 
select  count {*)  vidtcrst_keep  from  persinsp 
where  civtvkey  is  not  null; 


(This  is  to  make  the  inspections  by  M/Y  and  also  by  just  Y  to  join  with 
the  so  grouped  duration  data  below  for  the  complete  data  set) 

select  *,  month (iritdate)  mo, year (iritdate)  ye 
from  vidtcrst 
into  temp  inspect; 

(By  MY) 
select 

iritvkey,  mo,  ye, 

sum (numcases )  numcases , sum (hull_hr )  hull_hr , sum (mach_hr )  mach_hr , 


suin(train_hr)  train_hr,  suin(extra_hr)  ext  ra_hr,  sum  (text  ra_hr)  textra_hr, 
suin(adinin_hr)  admin.hr,  suin(travel_hr)  travel_hr,suin(ttravel_hr)  ttravel_hr, 
sxiin  ( other_hr )  other_hr , 
sum ( num^de  f )  num_de  f , 

{Level  II  Dummies  from  Mike:  Duration  model  on  only  Level  II  activities 
Here  only  II. A  activities  since  only  U.S.  flag  MI  activities) 
sum (nurod2al )  nurod2al , sum {numd2a2 )  numd2a2 , sum (numd2a3 )  numd2a3 , 

(CRST  types  of  inspections:  indicators) 

sum{crstannual)  crstannual ,  sum (erst reinsp)  erstreinsp, 
sum(crstadmin)  crstadmin,sum(crsthull)  crsthull,sum(crstcoc)  crstcoc, 
sum  ( erst constr )  erst const r , sum ( erst cert )  crstcert , 
sum(crstinit )  erstinit , sum(crstinach)  crstmach,sum(crstdef )  erstdef, 
sum  ( erstother )  erst other , sum ( erstrest )  erstrest 
from  inspect 
group  hy  iritvkey,roo,ye 
into  temp  inspect^MY; 

(By  Y) 
select 

iritvkey,  ye, 

sum(numcases)  numcases, sum(hull_hr)  hull_hr , sum (mach_hr)  mach_hr, 

sum ( train_hr )  t rain^hr ,  sum (ext ra_hr )  extra_hr , sum { textra_hr )  textra_hr , 

sum(admin_hr)  admin_hr,  sum (travel_hr )  travel_hr , sum(ttravel_hr )  ttravel_hr, 

sum ( other_hr )  other_hr , 

sum {num_def )  num_def , 

{Level  II  Dummies  from  Mike:  Duration  model  on  only  Level  II  activities 
Here  only  II. A  activities  since  only  U.S.  flag  MI  activities) 
sum (numd2al )  numd2al , sum (numd2a2 )  numd2a2 , sum (numd2a3 )  numd2a3 , 

(CRST  types  of  inspections:  indicators) 

sum  (crstannual )  crstannual ,  sum  (erstreinsp)  erstreinsp, 
sum ( erst admin)  ers t admin, sum (erst hull )  erst hull , sum (erst coc )  crstcoc , 
sum ( crstconstr )  erst constr , sum ( crstcert )  crstcert , 
sum (erst ini t )  erst ini t , sum (crstmach)  crstmach, sum (erstdef )  erstdef , 
sum  (erstother )  erstother , sum (erstrest )  erstrest 
from  inspect 
group  by  iritvkey,ye 
into  temp  inspect_Y; 


{Make  a  table  grouped  Just  by  iritvkey  for  vessel  characteristics) 

select  iritvkey 

from  vidterst 

group  by  iritvkey 

into  temp  justvkey; 

select  count (*)  num_justvkey  from  justvkey; 
select  justvkey . iritvkey, 

vidt. service  service,  vidt.flag  flag,  vidt.reg_gt  reg_gt, 
year (vidt .bld_dt )  yearbld,  vidt .route  route, 

{These  have  many  nulls  and  are  used  only  for  model  of  inspection  if  adequate) 
vidt .dblside_typ,  vidt .dblbott_typ,  vidt .prop_typ,  vidt. design,  vidt .hull_mat 
from  justvkey,  vidt 
where 

justvkey.  iritvkeysvidt.vkey  and 
( 

vidt .service=" FREIGHT  SHIP"  or  vidt .service=" PUB.  TANKSHIP/BARGE"  or 
vidt .services "TANK  SHIP"  or  ( (vidt .service=" PASSENGER"  or 
vidt  .servicer:  "PASSENGER  SHIP")  and  vidt  .reg_gt>=100) 

)  and 

vidt .flag="US- 
into  temp  vesschar; 


select  count  (*)  nuin_vesschar  from  vesschar; 

{The  following  comments  apply  to  when  I  was  using  Peggy's  mapping  for 
Level  II  activities.  But  since  we  are  now  using  IRIT  indicators  are  these 
comments  still  applicable?  We'll  find  out,  if  there  is  a  big  difference 
between  the  M/Y  and  the  just  Y  file  size) 

{II.  Here  we  cc»npute  Duration,  and  get  rid  of  duplicate  values. 

We  Group  by  Month/Year  of  IRIT  inspection.  This  is  since  several  Level  II 
activities  may  be  grouped  in  a  bunch  but  on  several  different  days.  We 
would  like  to  count  this  bunch  only  once.  There  is  still  an  approximation 
since  bunch  may  overlap  between  two  months.  Can't  prevent  this  in  SQL 
Hence  we  do  two  data  sets: 

(i)  Group  by  Month/ Year,  as  described  above,  emd 

(ii)  Group  by  just  Year.  This  is  a  smaller  data  set,  and  is  the  correct  one 
for  Level  II  activities  that  are  performed  over  1  or  2  years) 

{Note;  for  inspections  with  no  casualty,  durations (1/1/95  -  iritdate) ) 

{Data  set  1:  Group  by  Month/ Year) 

select  iritvkey,  month (iritdate)  mo,  year (iritdate)  ye, 

(cirtdate-iritdate)  dur_cas,  (•l/l/95"-iritdate)  dur_nocas 
from  persinsp 
into  temp  durl; 

select  iritvkey, mo, ye, min(dur_cas)  mindur_cas,max(dur_nocas)  dur_nocas 
from  durl 

group  by  iritvkey,  mo, ye 
order  by  iritvkey , ye, mo 
into  temp  dur2; 

select  count (*)  all_rows_MY_l  from  dur2; 

select  *  from  dur2  where  mindur_cas  is  not  null  into  temp  junkl; 
select  count (*)  with_casualty_MY_l  from  junkl; 
drop  table  junkl; 

{Join  duration  and  inspection  tables) 
select  inspect_MY . * ,  mindur_cas,  dur_nocas, 

service  ,  flag,  reg_gt,  yearbld,  route, 
dblside_typ,  dblbott_typ,  prop_typ,  design,  hull_mat 
from  inspect_MY,  dur2,  vesschar 

where  inspect_My. iritvkey=dur2 . iritvkey  and 

inspect_MY . iritvkey=vesschar . iritvkey  and 
inspect_MY .mo=dur2 .mo  and 
inspect_MY .ye=dur2 .ye 
order  by  iritvkey, ye, mo 
into  temp  dur3 ; 

select  count (*)  all_rows_MY_2  from  dur3  ; 

select  *  from  dur3  where  mindur_cas  is  not  null  into  temp  junkl; 
select  count (*)  with_casualty_MY_2  from  junkl; 
drop  table  junkl; 

unload  to  •/nfs/ttd32/optical/50b/trix.dat/dur_2al_my .pers"  delimiter  • 
select  * 
from  dur3 ; 

{Check  the  aggregation) 

select  count (*)  numrows,  sum(hull_hr)  tot_hull_hr,  sum(mach_hr) 

tot_mach_hr , 

sum (admin_hr )  tot_admin_hr 
from  dur3 ; 

select  count (*)  numrows,  sum(numd2al)  numd2al , sum (numd2a2 )  numd2a2, 
sum(numd2a3)  numd2a3 


from  dur3; 


drop  table  durl; 
drop  table  dur2; 
drop  table  dur3; 

{Data  set  2:  Group  by  just  Year) 

select  iritvkey,  month (iritdate)  mo,year (iritdate)  ye, 

(cirtdate-iritdate)  dur^cas,  ("l/l/95--iritdate)  dur.nocas 
from  persinsp 
into  temp  durl; 

select  iritvkey  ,ye  ,min  (dur_cas )  mindur_cas  ,max  {dur_nocas )  dur_nocas 
from  durl 

group  by  iritvkey,ye 
order  by  iritvkey,ye 
into  temp  dur2 ; 

select  count {*)  all_rows_y_l  from  dur2; 

select  *  from  dur2  where  mindur_cas  is  not  null  into  temp  junkl; 
select  count  (♦)  with_casualty_y_l  from  junkl; 
drop  table  junkl; 


(Join  duration  and  inspection  tables) 
select  inspect_Y . * ,  mindur_cas ,  dur_nocas , 

service  ,  flag,  reg_gt,  yearbld,  route, 
dblside_typ,  dblbott_typ,  prop_typ,  design,  hull_mat 
from  inspect_y,  dur2,  vesschar 

where  inspect_Y . ir i tvkey =dur2 . ir itvkey  and 

inspect^Y. iritvkey=vesschar . ir itvkey  and 
inspec t_Y . ye=dur2 . ye 
order  by  iritvkey,ye 
into  temp  dur3 ; 

select  count (*)  all_rows_Y_2  from  dur3; 

select  *  from  dur3  where  mindur_cas  is  not  null  into  temp  junkl; 
select  count (*)  with_casualty_Y_2  from  junkl; 
drop  table  junkl; 

unload  to  “/nf s/ttd32/optical/50b/trix.dat /dur_2al_y .pers"  delimiter 
select  * 
from  dur3 ; 

select  count {♦)  numrows,  sum(hull_hr)  tot_hull_hr,  sum(mach_hr) 

tot_mach_hr , 

sum (admin_hr )  tot_admin_hr 
from  dur3; 

select  count (*)  numrows,  sum{numd2al)  numd2al , sum {numd2a2 )  numd2a2, 
sum {numd2a3 )  numd2a3 
from  dur3; 

(print  this  out  for  var  names  to  an  output  file  since  need  also  to  print  for 
pollution  data  set) 

output  to  /users/gawande/dur_al_pers .out 
select  * 
from  dur3 

where  reg_gt >100000; 


{***i****************i>*****^**Po]^2utioj^  Casualties**’^* ******** ****♦♦*♦**♦*} 


{Be  sure  to  run  MIDURl  and  MIDUR2  before  these  two  progs) 

{  Here,  pollution  casualty  data  is  assembled  from  CIVT  and  CIRT. 

CIRT,  and  CIVT  are  joined  by  (unique)  Mccase  and  select  out  only 
deep-draft  vessels  (hence  a  little  use  of  VIDT) .  Pollution  incidents  are 
constructed  from  CIRT  (which  has  no  vkey)  and  joined  to  CIVT  to  associate 
them  with  a  Vkey.  There  are  duplicate  Vkey  records  in  CIVT  (of  the  28,821 
records,  13,548  have  unique  Vkey),  so  we  need  to  choose  only  unique  records) 

drop  table  civt_dups; 
drop  table  civt_nodups ; 
drop  table  cirt_civtO; 

select 

civt.vkey  civtvkey,  cirt . incident_dt  cirtdate 
from  cirt,  civt,  vidt 

(Note  that  using  VIDT  for  the  reg_gt>100  info  and  hence  need  Unique  in  select 
statement  since  in  CIVT,  the  vkey  is  not  unique  (in  VIDT  vkey  is  unique)) 
where 

cirt .mccase=civt .mccase  and 
civt .vkey = vidt .vkey  and 

(Jim  Law:  converstion  on  July  14,  1994.  The  following  query  contracts 
CIRT  to  cases  that  are  correct  (drop  mystery  and  inconsequential 
casualties).  ctf_ind=X  are  inconsequential  cases.  command_endorse  and 
command_cls  are  mutually  exclusive.  command_endorse=X  implies  that 
case  has  been  reviewed  and  fwd  to  dt/HQ  for  review.  command_cls=X  means  that 
case  is  done  and  does  not  require  review  at  dt/HQ.  command_endorses:X  are 
legit  cases  and  all  should  be  considered.  Of  the  command_cls=X  cases,  only 
those  with  ctf_ind=null  should  be  considered  since  ctf_ind=X  implies  an 
inconsequential  case.  } 

(Jim  Law:  converstion  on  July  14,  1994.  The  following  query  contracts 
CIRT  to  cases  that  are  correct  (drop  mystery  and  inconsequential 
casualties).  ctf_ind=X  are  inconsequential  cases.  command_endorse  and 
coinmand_cls  are  mutually  exclusive.  command_endorse=X  implies  that 
case  has  been  reviewed  and  fwd  to  dt/HQ  for  review.  command_cls=X  means  that 
case  is  done  and  does  not  require  review  at  dt/HQ.  command_endorse=X  are 
legit  cases  and  all  should  be  considered.  Of  the  command_cls=X  cases,  only 
those  with  ctf_ind=null  should  be  considered  since  ctf_ind=X  implies  an 
inconsequential  case.  } 

(cirt .command_endorse=*X" 

or  (cirt .command_cls=*X“  and  cirt.ctf_ind  is  null))  and 
cirt .mcpd_ind>=l  and 

(cirt .pol_ind="X*  or  pri_nature= • POLLUTION" )  and 

(To  select  Only  BAD  cases,  unblock  this  statement) 

(severity  in  ( "MAJOR" , "POTENT" , "MEDIUM" )  and) 

(  civt .services "FREIGHT  SHIP"  or  civt .services "PUB.  TANKSH IP /BARGE" 
or  civt . services "TANK  SHIP*  or 

( (civt . services*PASSENGER*  or  civt .services "PASSENGER  SHIP")  and 
vidt .reg_gt>sl00)  ) 
into  temp  civt_dups; 
select  count (*)  num_civtdups 
from  civt_dups; 

{This  set  of  statements  selects  non-duplicate  rows  in  civt_dup.  Although 
this  is  an  approximation  of  duplicates,  its  not  a  bad  one.  Can't  really 


check  for  the  pollution  cases  since  mostly  number  of  cases  is  1} 
select  *  from  civt_dups 
group  by  civtvkey, cirtdate 
into  temp  civt_nodups; 
select  count ( * )  num_civtnodups 
from  civt_nodups; 

{group  by  vkey  to  attach  to  the  inspections  file.  Note  that  poll_incids  now 
gives  the  number  of  unique  incident  dates  associated  with  that  vessel  on 
a  cirtdate,  and  hence  is  probably  always  equal  to  1. 

Actually  poll_incids  is  superfluous  and  never  used  in  the  duration  file  anyway) 

select  civtvkey,  cirtdate,  count (*)  poll_incids 

from  civt_nodups 

group  by  civtvkey,  cirtdate 

order  by  poll_incids  desc 

into  temp  cirt_civtO; 

select  count (♦)  num_cirtcivtO 
from  cirt_civtO; 

{drop  table  cirt_civtO;} 


{Here  we  do  the  last  part:  join  inspection  and  casualty  tables,  and  Unload 
2  Pollution  casualty  files  (one  for  M/Y  and  one  for  just  Y) ) 


drop  table 
drop  table 
drop  table 
drop  table 
drop  table 
drop  table 
drop  table 
drop  table 


inspect ; 
inspect_MY; 
inspect_Y; 
justvkey ; 
vesschar ; 
durl  ; 
dur2  ; 
dur3  ; 


{I.  Join  hours  and  casualties. 

vidtcrst  sorted  by  iritvkey , iritdate,  and  cirt_civtO  is  sorted  by  civtvkey, 
cirtdate.  Hence  there  are  duplicate  vkeys  in  both  and  the  next  join 
statement  produces  a  small  cartesian  explosion,  but  this  is  ok  since  we  Need 
this  explosion  because 

(i)  we  need  to  match  only  where  cirtdate>iritdate,  and 

(ii)  we  need  to  compute  MIN  duration  among  the  cartesian  matches) 


(This  first  set  of  statements  for  making  pollinsp  and  checking) 
select  unicfue  vidtcrst.*,  cirt_civtO.* 
from  vidtcrst,  outer  cirt_civtO 
where  cirt_civtO-civtvkey=vidtcrst .  iritvkey  and 
cirt_civt 0 . cirtdate>=vidtcrst . iritdate 
into  temp  pollinsp; 

select  count (*)  num_pollinsp  from  pollinsp; 

{Count  number  of  unique  (iritvkey , iritdate)  in  pollinsp) 
select  unique  iritvkey , iritdate  from  pollinsp  into  temp  junkO; 
select  count  {*)  numunia  pollinsp  from  junkO; 
drop  table  junkO; 

{Count  number  of  casualty  vkeys  that  Are  in  vidtcrst) 
select  count  (*)  vidtcrst_keep  from  pollinsp 
where  civtvkey  is  not  null; 


{This  is  to  make  the  inspections  by  M/Y  and  also  by  just  Y  to  join  with 
the  so  grouped  duration  data  below  for  the  complete  data  set) 


select  *,  month (iritdate)  mo.year (iritdate)  ye 
from  vidtcrst 
into  temp  inspect; 

{By  MY) 
select 

iritvkey,  mo,  ye, 

sum(numcases)  numcases,sum(hull_hr)  hull_hr , sum(mach_hr )  mach_hr, 
sum(train_hr)  train_hr,  sum(extra_hr)  extra_hr , sum { text ra_hr )  textra_hr, 
sum(admin_hr)  admin_hr,  sum(travel_hr)  travel_hr,sum(ttravel_hr)  ttravel_hr, 
sum ( other_hr )  other_hr , 
sum ( num_def )  num_de  f , 

(Level  II  Dummies  from  Mike:  Duration  model  on  only  Level  II  activities 
Here  only  II. A  activities  since  only  U.S.  flag  MI  activities) 
sum(numd2al)  numd2al,sum(numd2a2)  numd2a2,sum(numd2a3)  numd2a3, 

(CRST  types  of  inspections:  indicators) 

siim(crstannual)  crstannual,  siim(crstreinsp)  crstreinsp, 
sum(crstadmin)  crstadmin, suro(crsthull)  crsthull,sum(crstcoc)  crstcoc, 
sum(crstconstr)  crstconstr, sum (erst cert)  crstcert, 
sum(crstinit)  erst init , sum (crstmach)  crstmach, sum (erstdef )  erstdef, 
sum (erst other)  erstother, sum(crstrest)  erstrest 
from  inspect 
group  by  iritvkey , mo, ye 
into  temp  inspect_MY; 

(By  Y) 
select 

iritvkey,  ye, 

sum(numcases)  numcases,sum(hull_hr)  hull_hr , sum(mach_hr )  mach_hr, 
sum(train_hr)  train_hr,  sum (extra_hr )  extra_hr, sum (text ra_hr)  textra_hr, 
sum (admin_hr )  admin_hr,  sum ( t rave l_hr)  travel_hr, sum(ttravel_hr)  ttravel_hr, 
sum(other_hr )  other_hr, 
sum ( num_def )  num_de f , 

(Level  II  Dummies  from  Mike:  Duration  model  on  only  Level  II  activities 
Here  only  II. A  activities  since  only  U.S.  flag  MI  activities) 
sum(numd2al)  numd2al ,  sum(numd2a2 )  nvimd2a2,sum(numd2a3)  numd2a3  , 

(CRST  types  of  inspections:  indicators) 

sum  (crstannual )  crstannual,  Siam  (crstreinsp)  crstreinsp, 
sum (crstadmin)  crstadmin, sum (crsthull )  crsthull, sum (crstcoc)  crstcoc, 
sum (crstconstr )  crstconstr, sum (crstcert)  crstcert, 
sum (erstinit )  erstinit, sum (crstmach)  crstmach, sum (erstdef)  erstdef, 
sum (erst other)  erstother , sum (erstrest )  erstrest 
from  inspect 
group  by  iritvkey, ye 
into  temp  inspect_Y; 


(Make  a  table  grouped  Just  by  iritvkey  for  vessel  characteristics) 

select  iritvkey 

from  vidtcrst 

group  by  iritvkey 

into  temp  justvkey; 

select  count (*)  num_justvkey  from  justvkey; 
select  justvkey . iritvkey , 

vidt. service  service,  vidt.flag  flag,  vidt.reg_gt  reg_gt, 
year (vidt .bld_dt )  yearbld,  vidt. route  route, 

{These  have  many  nulls  and  are  used  only  for  model  of  inspection  if  adequate) 
vidt.dblside_typ,  vide .dblbott_typ,  vidt .prop_typ,  vidt. design,  vidt .hull_mat 
from  justvkey,  vidt 
where 


justvkey .  iritvkey=vidt . vkey  and 
( 

vidt .services "FREIGHT  SHIP"  or  vidt .services "PUB.  TANKSHIP/ BARGE"  or 
Vi dt .services "TANK  SHIP"  or  { (vidt. services -PASSENGER"  or 
vidt .services -passenger  SHIP")  and  vidt .reg_gt>sl00) 

)  and 

vidt .flags "US" 
into  temp  vesschar; 

select  count  (*)  niim_vesschar  from  vesschar; 


{II.  Here  we  compute  Duration,  and  get  rid  of  duplicate  values. 

We  Group  by  Month/Year  of  IRIT  inspection.  This  is  since  several  Level  II 
activities  may  be  grouped  in  a  bunch  but  on  several  different  days.  We 
would  like  to  count  this  bunch  only  once.  There  is  still  an  approximation 
since  bunch  may  overlap  between  two  months.  Can't  prevent  this  in  SQL 
Hence  we  do  two  data  sets: 

(i)  Group  by  Month/ Year,  as  described  above,  and 

(ii)  Group  by  just  Year.  This  is  a  smaller  data  set,  and  is  the  correct  one 
for  Level  II  activities  that  are  performed  over  1  or  2  years} 

(Note:  for  inspections  with  no  casualty,  duration= (1/1/95  -  iritdate) } 

(Data  set  1:  Group  by  Month/ Year) 

select  iritvkey,  month (iritdate)  mo,  year (iritdate)  ye, 

(cirtdate- iritdate)  dur_cas,  ( "1/1/95" -iritdate)  dur_nocas 
from  pollinsp 
into  temp  durl; 

select  iritvkey , mo , ye , min ( dur_cas )  mindur_cas , max (dur^nocas )  dur_nocas 
from  durl 

group  by  iritvkey,  mo, ye 
order  by  iritvkey , ye, mo 
into  temp  dur2; 

select  count (*)  all_rows_MY_l  from  dur2; 

select  *  from  dur2  where  mindur^cas  is  not  null  into  temp  junkl; 
select  count (*)  with_casualty_MY_l  from  junkl; 
drop  table  junkl; 

(Join  duration  and  inspection  tables) 
select  inspect_MY. *,  mindur_cas,  dur_nocas, 

service  ,  flag,  reg_gt,  yearbld,  route, 
dblside_typ,  dblbott_typ,  prop_typ,  design,  hull_mat 
from  inspect_MY,  dur2,  vesschar 

where  inspect_MY . ir itvkey=dur2 . iritvkey  and 

inspect^MY . ir itvkey=vesschar . iritvkey  and 
inspect_MY.mo=dur2 .mo  and 
inspect_MY.yG=dur2 .ye 
order  by  iritvkey , ye, mo 
into  temp  dur3 ; 

select  count (*)  all_rows_MY_2  from  dur3; 

select  *  from  dur3  where  mindur_cas  is  not  null  into  temp  junkl; 
select  count (*)  with_casualty_MY_2  from  junkl; 
drop  table  junkl; 

unload  to  "/nf s/ttd32/optical/50b/trix.dat/dur_2al_my .pollall"  delimiter  "," 
select  * 
from  dur3 ; 

(Check  the  aggregation) 

select  count (*)  numrows,  sum(hull_hr)  tot_hull_hr,  sum(mach_hr) 
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tot_inach_hr , 

sum  (admin_hr )  tot_admin_hr 
from  dur3; 

select  count  (♦ )  numrows ,  sum  (numd2al )  numd2al ,  sum  (numd2a2  )  numd2a2 , 
sum (nurod2a3 )  numd2a3 
from  dur3; 

drop  table  durl; 
drop  table  dur2; 
drop  table  dur3; 

{Data  set  2:  Group  by  just  Year) 

select  iritvkey,  month (iritdate)  mo,year (iritdate)  ye, 

(cirtdate^iritdate)  dur^cas,  Cl/l/SB^-iritdate)  dur^nocas 
from  pollinsp 
into  temp  durl; 

select  iritvkey,ye,min (dur_cas)  mindur_cas,max(dur_nocas)  dur_nocas 
from  durl 

group  by  iritvkey, ye 
order  by  iritvkey, ye 
into  temp  dur2; 

select  count (*)  all_rows_Y_l  from  dur2; 

select  *  from  dur2  where  mindur_cas  is  not  null  into  temp  junkl; 
select  count (*)  with_casualty_Y_l  from  junkl; 
drop  table  junkl; 


{Join  duration  and  inspection  tables} 
select  inspect_Y . * ,  mindur_cas ,  dur_nocas , 

service  ,  flag,  reg_gt,  yearbld,  route, 
dblside_typ,  dblbott_typ,  prop_typ,  design,  hull^mat 
from  inspect_Y,  dur2,  vesschar 

where  inspect_Y . iritvkey =dur2 . iritvkey  and 

inspect_y. iritvkey=vesschar . iritvkey  and 
inspec t_Y . ye=dur2 . ye 
order  by  iritvkey, ye 
into  temp  dur3; 

select  count (*)  all_rows_Y_2  from  dur3 ; 

select  *  from  dur3  where  mindur_cas  is  not  null  into  temp  junkl; 
select  count  (’^)  with_casualty_y_2  from  junkl; 
drop  table  junkl; 

unload  to  "/nf s/ttd32/optical/50b/trix.dat/dur_2^1_y .pollall-  delimiter 
select  * 
from  dur3 ; 

select  count (*)  numrows,  sum(hull_hr)  tot_hull_hr,  sum(mach_hr) 

tot_mach_hr , 

sum (admin_hr )  tot_admin_hr 
from  dur3; 

select  count (*)  numrows,  sum(numd2al)  numd2al , sum (numd2a2 )  numd2a2, 
sum (numd2a3 )  numd2a3 
from  dur3; 

{print  this  out  for  var  names  to  an  output  file  since  need  also  to  print  for 
pollution  data  set) 

output  to  /users/gawande/dur_al_poll .out 
select  * 
from  dur3 

where  reg.gt>100000; 
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0DR_A3.SQL 

{MI  Cases) 

{After  conversation  with  Wyman  Briggs  on  18  July,  1994:  Use  IRIT  indicators 
for  inspection  types  for  Level  II. A. 1-3  activities,  and  use  Peggy  Thurber's 
mapping  (grouped  by  Mike  into  d31-d39  indicators)  for  Level  III  activities) 

{1.  Change  inspection  from  IRIT  appropriately;  cert_inspect  for  COI, 
reinspect  for  Reinspection,  and  hull  for  hull  exam. 

2.  Change  the  Unload  to  file  else  WILL  WRITE  OVER) 

{Only  post  1991  (incl)  inspections  since  duration  since  last  inspection  to 
casualty,  and  first  casualty  in  Minmod  is  02/91) 

{ 

Duration  data:  The  idea  is  as  follows. 

The  Ihs  variable  is  duration  from  the  Last  inspection  till  date  of  casualty. 
Analysis  will  be  by  Level  II  activities:  (i)  3  MI  activities:  COI,  Annual 
Vessel  Reinspection,  Hull  Exam,  and  (ii)  3  PS  activities;  Annual  Foreign 
Freight  Exam,  Annual  Foreign  Tanker  Vessel  Exam,  Annual  Foreign  Passenger. 

The  same  vessel  inspected  (using  same  activity)  twice  is  treated  as  two 
different  vessels,  and  as  two  observations  (i.e.  Hence  large  data  set.) 

If  the  vessel  has  no  casualty  after  an  activity,  the  Ihs  takes  the  value  of 
duration  till  the  next  activity  of  the  same  type.  The  problem  is  that 

(a)  casualty  may  not  have  anything  to  do  with  that  activity.  For,  example 
pri_nature  in  CIRT  may  possess  such  info.  This  can  (should?)  be  incorporated 
by  attributing  only  those  casualties  to  that  activity.  This  requires  that 
pri_nature  should  be  mapped  into  Level  II  activities.  This  mapping  will 
probably  be  one (pri_nature)  to  many(Level  II  activities). 

(b)  should  we  be  taking  duration  till  next  activity  of  the  same  type,  or  any 
activity.  If  we  take  into  consideration  pri_nature  and  ascribe  only  the 
•casualties  connected  with  that  activity"  in  computing  the  Ihs  variable,  then 
we  take  duration  till  next  activity  of  the  Same  type  if  no  casualty  in  the 
meantime.  Else  not  so  easy,  since  casualty  may  be  of  a  nature  attributable 
to  another  kind  of  activity.  Even  if  pri_nature  used,  probably  not  too  easy, 
since  mapping  is  probably  one (pri_nature)  to  many  or  all (Level  II  activity). 
So  problem  still  unanswered. 

Solution:  We  take  the  simple  road.  All  casualties,  not  just  those 

attributable  directly  to  the  Level  II  activity  is  considered.  This  is  OK 
since  anyway  a  large  range  of  inspections  map  into  a  Level  II  activity,  and 
Many  pri_natures  map  into  this  set  of  inspections.  Also  since  some  vessels 
are  subject  to  a  Level  II  activity  sooner  than  others,  rather  than  take  the 
duration  between  two  inspections,  in  the  event  of  No  casualty  we  take  the 
duration  between  the  inspection  date  and  1/1/1995.  The  problem  is  that  the 
closer  the  inspection  to  that  date,  the  shorter  the  duration  recorded.  But 
mainly,  it  is  convenient,  the  duration  so  computed  does  not  exceed  the 
duration  where  there  Are  casualties,  and  since  the  last  inspection  was  in 
12/1993,  this  simplification  is  not  expected  to  qualitatively  change  any 
results. 

rhs  variable  is  still  number  of  hours  devoted  to  that  activity  etc.  The 
main  difference  is  the  age  of  the  vessel,  which  is  to  be  computed  at  the  time 
of  casualty,  or  at  the  time  of  next  inspection  if  no  casualty. 

) 

{For  the  hours  of  inspection  equation  have  (i)  num_def  from  IRIT  and 
(ii)  indicators  for  inspection  types  for  other  CRST  inspections) 

{*«********************»*****hoURS  of  INSPECTIONS*** ***** **************** ) 

select 

irit.vkey  iritvkey,  irit.dt  iritdate. 


count  (*)  nujncases,sum(hr_hull)  hull_hr ,  suin(hr_jnach)  inach_hr, 

sum (hr .train)  train_hr,  sum(hr_extra)  ext ra_hr, sum (hr_t extra)  textra.hr, 

sum(hr_admin)  admin.hr,  sum (hr .travel)  travel.hr, sum (hr.ttravel)  ttravel.hr, 

sum ( hr.other )  other.hr , 

sum(irit.num.(aef )  num.def, 

{Sum  of  Mike's  dummies  (based  on  Peggy's  mapping)  gives  the  total  of 
sub-inspections  for  that  Level  II  activity  on  that  date) 
sum(d2al)  numd2al,sum(d2a2)  numd2a2, sum(d2a3 )  numd2a3, 

(CRST  types  of  inspections:  indicators) 

sum ( erst. dannual)  crstannual,  sum (erst .dreinsp)  erstreinsp, 
sum(crst.dadmin)  erstadmin, sum ( erst. dhull)  crsthull , sum (erst .dcoc)  crstcoc, 
sum ( erst. dconstr)  erstconstr, sum (erst. deert)  crstcert, 

sum (erst. dinit)  crstinit,sum(crst.dmach)  crstmach, sum (erst. ddeficit)  erstdef, 
sum ( erst .dother)  erstother, sum (erst .drest)  erstrest 
from  erst,  irit 

(Since  first  casualty  case  is  02/91  and  duration  is  from  last  inspection,  only 
inspections  after  1991  are  considered.  This  is  unlike  the  Poisson  stuff  where 
inspections  after  1989  are  considered) 

where 

(activity  II . A.2=Reinspection) 
irit .reinspect="X“  and 

irit.micase[l,2]=“MI''  and 
irit.vkey [l,2i=*VN"  and 
erst . case [ 1 , 2) =-MI “  and 

(since  first  casualty  case  is  02/91  and  duration  is  from  last  inspec) 
erst .case [3 , 4] >="91*  and 
erst . case=irit .micase 

group  by  irit.vkey,  irit.dt 
into  temp  crst.tempO; 

select  count (*)  count crst.tempO 
from  crst.tempO’; 


(This  file  joins  CRST.TEMPO  (agg  hours  by  vkey)  to  VIDT  to  identify  the  foil: 
service,  flag,  reg.gt,  bld_yr,  route.) 

(drop  table  vidterst;) 

select 

crst.tempO . * , 

vidt. service  service,  vidt.flag  flag,  vidt. reg.gt  reg.gt, 
year (vidt .bld.dt )  yearbld,  vidt. route  route, 

(These  have  many  nulls  and  are  used  only  for  model  of  inspection  if  adequate) 
vidt .dblside.typ,  vidt .dblbott.typ,  vidt .prop.typ,  vidt. design,  vidt .hull.mat 

from  crst.tempO,  vidt 
where 

crst.tempO . ir itvkey=vidt . vkey  and 
( 

vidt .services "FREIGHT  SHIP*  or  vidt .services "PUB.  TANKSHIP/BARGE"  or 
vidt .services "TANK  SHIP*  or  ( (vidt .services "PASSENGER"  or 
vidt .services "PASSENGER  SHIP")  and  vidt .reg.gt>=100 ) 

)  and 

vidt . f lag=*US" 
into  temp  vidterst; 


select  count (*) 
from  vidtcrst; 


(****************************pgj.gQj^gj 


Casualties************************ } 


{  Here,  casualty  data  is  assembled  from  CIVT  and  CIRT. 

CIRT,  and  CIVT  are  joined  by  (unique)  Mccase  and  select  out  only 
deep-draft  vessels  (hence  a  little  use  of  VIDT) .  Personnel  casualties  are 
constructed  from  CIRT  (which  has  no  vkey)  and  joined  to  CIVT  to  associate 
them  with  a  Vkey.  There  are  duplicate  Vkey  records  in  CIVT  (of  the  28,821 
records,  13,548  have  unique  Vkey) ,  so  we  need  to  choose  only  unique  records) 

drop  table  civt_dups; 
drop  table  civt_nodups; 
drop  table  cirt_civtO; 

) 

select 

civt .vkey  civtvkey, deaths , missing, injured, cirt . incident_dt  cirtdate 
from  cirt,  civt,  vidt 

(Note  that  in  CIVT,  the  vkey  is  not  unique  (in  VIDT  vkey  is  unique) .  Hence 
first  get  temp  table  civt_dups  (with  duplicates) .  Then  check  for  number 
of  duplicates  before  grouping  by  vkey) 
where 

cirt .mccase=civt .mccase  and 
civt . vkey = vidt .vkey  and 

(Jim  Law:  converstion  on  July  14,  1994.  The  following  query  contracts 
CIRT  to  cases  that  are  correct  (drop  mystery  and  inconsequential 
casualties).  ctf_ind=X  are  inconsequential  cases.  command_endorse  and 
command_cls  are  mutually  exclusive.  command_endorse=X  implies  that 
case  has  been  reviewed  and  fwd  to  dt/HQ  for  review.  command_cls=X  means  that 
case  is  done  and  does  not  require  review  at  dt/HQ.  command_endorse=X  are 
legit  cases  and  all  should  be  considered.  Of  the  command_cls=X  cases,  only 
those  with  ctf_ind=null  should  be  considered  since  ctf_ind=X  implies  an 
inconsequential  case.  ) 

(cirt  .command_endorse=*X'' 

or  (cirt .command_cls=*X"  and  cirt.ctf_ind  is  null))  and 

(cirt .deaths>0  or  cirt .missing>0  or  cirt .injured>0)  and 
(  civt. services “FREIGHT  SHIP*  or  civt . services “PUB .  TANKSHIP/BARGE* 
or  civt .services “TANK  SHIP*  or 

( (civt . services "PASSENGER*  or  civt .services "PASSENGER  SHIP")  and 
vidt .reg_gt>si00)  ) 
into  temp  civt_dups; 
select  count (*)  num_civtdups 
from  civt_dups; 

{This  set  of  statements  selects  non-duplicate  rows  in  civt_dup.  If  group 
by  just  civtvkey, incident_dt,  get  almost  same  rows  as  this) 
select  *  from  civt_dups 

group  by  civtvkey, cirtdate,  deaths, missing, injured 

into  temp  civt_nodups; 

select  count (*)  num_civtnodups 

from  civt_nodups ; 

(group  by  vkey  to  attach  to  the  inspections  file.  Note  that  numdates  now 
gives  the  number  of  unique  incident  dates  associated  with  that  vessel) 


select  civtvkey,  cirtdate, 

sum (deaths)  deaths, sum (missing)  missing, sum (injured)  injured 
from  civt.nodups 
group  by  civtvkey , cirtdate 
order  by  deaths  desc,  injured  desc 
into  temp  cirt_civtO; 

select  count (*)  num_cirtcivtO 
from  cirt_civtO; 

{drop  table  cirt_civtO;) 


(Here  we  do  the  last  part:  join  inspection  and  casualty  tables,  and  Unload 
2  Personnel  casualty  files  (one  for  M/Y  and  one  for  just  Y) ) 


{ 

drop 

drop 

drop 

drop 

drop 

drop 

drop 

drop 

drop 


table  persinsp; 
table  inspect; 
table  inspect_MY; 
table  inspect_Y; 
table  justvkey; 
table  vesschar; 
table  durl; 
table  dur2; 
table  dur3; 


) 

{I.  Join  hours  and  casualties. 

vidtcrst  sorted  by  iritvkey , iritdate ,  and  cirt_civtO  is  sorted  by  civtvkey, 
cirtdate.  Hence  there  are  duplicate  vkeys  in  both  and  the  next  join 
statement  produces  a  small  cartesian  explosion,  but  this  is  ok  since  we  Need 
this  explosion  because 

(i)  we  need  to  match  only  where  cirtdate>iritdate,  and 

(ii)  we  need  to  compute  MIN  duration  among  the  cartesian  matches) 


{This  first  set  of  statements  for  making  persinsp  and  checking) 
select  unique  vidtcrst.*,  cirt_civtO.* 
from  vidtcrst,  outer  cirt_civtO 
where  cirt_civtO .civtvkey=vidtcrst .iritvkey  and 
cirt_civtO .cirtdate>=vidtcrst . iritdate 
into  temp  persinsp; 

select  count (*)  num_persinsp  from  persinsp; 

(Count  number  of  unique  (iritvkey, iritdate)  in  persinsp) 
select  unique  iritvkey , iritdate  from  persinsp  into  temp  junkO; 
select  count (*)  numunig  persinsp  from  junkO; 
drop  table  junkO; 

(Count  number  of  casualty  vkeys  that  Are  in  vidtcrst) 
select  count (*)  vidtcrst_keep  from  persinsp 
where  civtvkey  is  not  null; 


(This  is  to  make  the  inspections  by  M/Y  and  also  by  just  Y  to  join  with 
the  so  grouped  duration  data  below  for  the  complete  data  set) 

select  *,  month (iritdate)  mo, year (iritdate)  ye 
from  vidtcrst 
into  temp  inspect; 

(By  MY) 
select 

iritvkey,  mo,  ye, 

sum (numcases )  numcases , sum (hull_hr )  hul l_hr , sum (mach_hr )  mach_hr , 


suin(train_hr)  tra3.n_hr,  suin(extra_hr)  extra_hr, suni(textra_hr)  textra_hr, 
suin(admin_hr )  adinin_hr,  suin(travel_hr)  travel  hr,suin(ttravel  hr)  ttravel  hr 
sum ( other_hr )  other_hr,  ~  ' 

sum { num_def )  num_de  f , 

{Level  II  Dummies  from  Mike:  Duration  model  on  only  Level  II  activities 
Here  only  II. A  activities  since  only  U.S.  flag  MI  activities) 
sum(numd2al)  numd2al,sum(numd2a2)  numd2a2,sv>m(numd2a3)  numd2a3, 

(CRST  types  of  inspections:  indicators) 
sum(crstannual)  crstannual,  svun (crstreinsp)  crstreinsp, 
sum(crstadmin)  crstadmin, sum(crsthull)  crsthull,sum(crstcoc)  crstcoc, 
sum (erst cons tr)  crstconstr,sum(crstcert)  crstcert, 
sum(crstinit)  crstinit,sum(crstmach)  crstmach, sum{crstdef )  erstdef, 
sum(crstother)  erstother , sum{crstrest)  erstrest 
from  inspect 
group  by  iritvkey.roo.ye 
into  temp  inspect_MY; 

(By  Y) 
select 

iritvkey,  ye, 

sum(numcases)  numcases, sum (hull_hr)  hull_hr,sum(mach_hr)  mach_hr, 
sum(train_hr )  train_hr,  sum(extra_hr)  extra_hr, sum(textra_hr)  textra_hr, 
sum(admin_hr )  admin_hr,  sum(travel_hr)  travel_hr, sum(ttravel_hr )  ttravel_hr, 
sum(other_hr )  other_hr, 
sum(num_def)  num_def, 

(Level  II  DumiTtier  from  Mike:  Duration  model  on  only  Level  II  activities 
Here  only  II. A  activities  since  only  U.S.  flag  MI  activities) 
siim(numd2al)  numd2al,sum(numd2a2)  numd2a2,sum(numd2a3)  numd2a3 , 

(CRST  types  of  inspections:  indicators) 

sum (crstannual)  crstannual,  sum (crstreinsp)  crstreinsp, 
sum (crstadmin)  crstadmin, sum(crsthull )  crsthull,svim (crstcoc)  crstcoc, 
sum (crstconstr )  crstconstr , sum (crstcert )  crstcert, 
sum(crstinit)  erst init , sum (crstmach)  crstmach, sum (erstdef)  erstdef, 
sum (erstother )  erstother , sum (erstrest )  erstrest 
from  inspect 
group  by  iritvkey, ye 
into  temp  inspect_Y; 


(Make  a  table  grouped  Just  by  iritvkey  for  vessel  characteristics) 

select  iritvkey 

from  vidterst 

group  by  iritvkey 

into  temp  justvkey; 

select  count (*)  num_justvkey  from  justvkey; 
select  justvkey . iritvkey, 

vidt. service  service,  vidt.flag  flag,  vidt.reg_gt  reg_gt, 
year (vidt .bld_dt)  yearbld,  vidt. route  route, 

{These  have  many  nulls  and  are  used  only  for  model  of  inspection  if  adequate) 
vidt.dblside_typ,  vidt .dblbott_typ,  vidt .prop_typ,  vidt. design,  vidt. hull  mat 
from  justvkey,  vidt  ~ 

where 

justvkey . iritvkey=vidt . vkey  and 
( 

vidt. services •FREIGHT  SHIP*  or  vidt .services "PUB.  TANKSHIP/ BARGE*  or 
vidt .services *tANK  SHIP*  or  ( (vidt. services* PASSENGER*  or 
vidt .services* passenger  SHIP*)  and  vidt .reg_gt>sl00) 

)  and 

vidt.flags’US* 
into  temp  vesschar; 


select  count  (*)  nuin_vesschar  from  vesschar; 

{The  following  comments  apply  to  when  I  was  using  Peggy's  mapping  for 
Level  II  activities.  But  since  we  are  now  using  IRIT  indicators  are  these 
comments  still  applicable?  We'll  find  out,  if  there  is  a  big  difference 
between  the  M/Y  auid  the  just  Y  file  size) 

{II.  Here  we  compute  Duration,  emd  get  rid  of  duplicate  values. 

We  Group  by  Month/Year  of  IRIT  inspection.  This  is  since  several  Level  II 
activities  may  be  grouped  in  a  bunch  but  on  several  different  days.  We 
would  li)ce  to  count  this  bunch  only  once.  There  is  still  an  approximation 
since  bunch  may  overlap  between  two  months.  Can't  prevent  this  in  SQL 
Hence  we  do  two  data  sets: 

(i)  Group  by  Month/Year,  as  described  above,  and 

(ii)  Group  by  just  Year.  This  is  a  smaller  data  set,  and  is  the  correct  one 
for  Level  II  activities  that  are  performed  over  1  or  2  years) 

{Note:  for  inspections  with  no  casualty,  duration* (1/1/95  -  iritdate) ) 

{Data  set  1:  Group  by  Month/Year) 

select  iritvkey,  month (iritdate)  mo,  year (iritdate)  ye, 

(cirtdate-iritdate)  dur_cas,  Cl/l/SS'-iritdate)  dur.nocas 
from  persinsp 
into  temp  durl ; 

select  iritv)cey,mo,ye,min(dur_cas)  mindur_cas ,max (dur_nocas )  dur_nocas 
from  durl 

group  by  iritvkey,  mo, ye 
order  by  iritvkey , ye, mo 
into  temp  dur2 ; 

select  count (*)  all_rows_MY_l  from  dur2; 

select  *  from  dur2  where  mindur_cas  is  not  null  into  temp  junkl; 
select  count (*)  with_casualty_MY_l  from  junkl; 
drop  table  junkl; 

{Join  duration  and  inspection  tables) 
select  inspect_My . * ,  mindur_cas,  dur_nocas, 

service  ,  flag,  reg_gt,  yearbld,  route, 
dblside_typ,  dblbott_typ,  prop_typ,  design,  hull_mat 
from  inspect_MY,  dur2,  vesschar 

where  inspect_MY . iritvkey=dur2 . iritvkey  and 

inspect_MY . iritvkey=vesschar . iritvkey  and 
inspect_MY .mo=dur2 .mo  and 
inspect_MY  .ye=dur2 .ye 
order  by  iritvkey, ye, mo 
into  temp  dur3 ; 

select  count (*)  all_rows_MY_2  fromdurS; 

select  •  from  dur3  where  mindur_cas  is  not  null  into  temp  junkl; 
select  count (*)  with_casualty_My_2  from  junkl; 
drop  table  junkl; 

unload  to  ■ /nfs/ttd32/optical/50b/trix.dat/dur_2a2_my .pers*  delimiter 
select  * 
from  dur3; 

{Check  the  aggregation) 

select  count (*)  numrows,  sum(hull_hr)  tot_hull_hr,  sum(mach_hr) 

tot_mach_hr, 

suro(admin_hr)  tot_admin_hr 
from  dur3 ; 

select  count (*)  numrows,  sum(numd2al)  numd2al , sum(numd2a2)  numd2a2, 
sum  ( nurod2  a3 )  numid  2  a3 


from  dur3; 

drop  table  durl; 
dro  table  dur2; 
drop  table  dur3 ; 

{Data  set  2:  Group  by  just  Year) 

select  iritvkey,  month (iritdate)  mo.year (iritdate)  ye, 

(cirtdate-iritdate)  dur_cas,  Cl/l/gS'-iritdate)  dur_nocas 
from  persinsp 
into  temp  durl; 

select  iritvkey,ye,min (dur_cas)  mindur_cas,incix(dur_nocas)  dur_nocas 
from  durl 

group  by  iritvkey, ye 
order  by  iritvkey, ye 
into  temp  dur2 ; 

select  count (*)  all_rows_Y_l  from  dur2; 

select  *  from  dur2  where  mindur_cas  is  not  null  into  temp  junkl; 
select  count (*)  with_casualty_Y_l  from  junkl; 
drop  table  junkl; 


(Join  duration  and  inspection  tables) 
select  inspect_Y.*,  mindur_cas,  dur_nocas, 

service  ,  flag,  reg_gt,  yearbld,  route, 
dblside_typ,  dblbott_typ,  prop_typ,  design,  hull_mat 
from  inspect_Y,  dur2,  vesschar 
where  inspect_Y. iritvkey=dur2 . iritvkey  and 

inspect_Y . iritvkey=vesschar . iritvkey  and 
inspect_Y . ye=dur2 . ye 
order  by  iritvkey, ye 
into  temp  dur3 ; 

select  count (*)  all_rows_Y_2  from  dur3 ; 

select  *  from  dur3  where  mindur_cas  is  not  null  into  temp  junkl; 
select  count (•)  with_casualty_y_2  from  junkl; 
drop  table  junkl; 

unload  to  "/nfs/ttd32/optical/50b/trix.dat/dur_2a2_y.pers"  delimiter 
select  * 
from  dur3 ; 

select  count (*)  numrows,  sum(hull_hr)  tot_hull_hr,  sum(mach_hr) 

tot_mach_hr , 

sum (admin_hr)  tot_admin_hr 
from  dur3 ; 

select  count (*)  numrows,  sum(numd2al)  numd2al , sun. (numd2a2 )  numd2a2, 
sum(numd2a3)  numd2a3 
from  dur3 ; 

(print  this  out  for  var  names  to  an  output  file  since  need  also  to  print  for 
pollution  data  set) 

output  to  /users /gawande/dur_a2_pers .out 
select  * 
from  dur3 

where  reg_gt>100000; 


(************** **«•***. ****.**Pollm.^Qn  Casualties**** ******** ************) 


{Be  sure  to  run  MIDURl  and  MIDUR2  before  these  two  progs} 

{  Here,  pollution  casualty  data  is  assembled  from  CIVT  and  CIRT. 

CIRT,  and  CIVT  are  joined  by  (unique)  Mccase  and  select  out  only 
deep-draft  vessels  (hence  a  little  use  of  VIDT) .  Pollution  incidents  are 
constructed  from  CIRT  (which  has  no  vkey)  and  joined  to  CIVT  to  associate 
them  with  a  Vkey.  There  are  duplicate  Vkey  records  in  CIVT  (of  the  28,821 
records,  13,548  have  unique  Vkey),  so  we  need  to  choose  only  unique  records) 

drop  table  civt_dups; 
drop  table  civt_nodups ; 
drop  table  cirt_civtO; 

select 

civt.vkey  civtvkey,  cirt . incident_dt  cirtdate 
from  cirt,  civt,  vidt 

(Note  that  using  VIDT  for  the  reg_gt>100  info  and  hence  need  Unique  in  select 
statement  since  in  CIVT,  the  vkey  is  not  unique  (in  VIDT  vkey  is  unique) ) 
where 

cirt .mccasescivt .mccase  and 
civt. vkey =vi dt . vkey  and 

(Jim  Law:  converstion  on  July  14,  1994.  The  following  query  contracts 
CIRT  to  cases  that  are  correct  (drop  mystery  and  inconsequential 
casualties).  ctf_ind=X  are  inconsequential  cases.  command_endorse  and 
command_cls  are  mutually  exclusive.  command_endorse=X  implies  that 
case  has  been  reviewed  and  fwd  to  dt/HQ  for  review.  command_cls=X  means  that 
case  is  done  and  does  not  require  review  at  dt/HQ.  command_endorse=X  are 
legit  cases  and  all  should  be  considered.  Of  the  command_cls=X  cases,  only 
those  with  ctf_ind=null  should  be  considered  since  ctf_ind=X  implies  an 
inconsequential  case.  } 

(Jim  Law:  converstion  on  July  14,  1994.  The  following  query  contracts 
CIRT  to  cases  that  are  correct  (drop  mystery  and  inconsequential 
casualties).  ctf_ind=X  are  inconsequential  cases.  command_endorse  and 
command_cls  are  mutually  exclusive.  command_endorse=X  implies  that 
case  has  been  reviewed  and  fwd  to  dt/HQ  for  review.  command_cls=X  means  that 
case  is  done  and  does  not  require  review  at  dt/HQ.  command_endorse=X  are 
legit  cases  and  all  should  be  considered.  Of  the  command_cls=X  cases,  only 
those  with  ctf_ind=null  should  be  considered  since  ctf_ind=X  implies  an 
inconsequential  case.  ) 

(cirt .command_endorse="X" 

or  (cirt .command_cls='X“  and  cirt.ctf_ind  is  null))  and 
cirt.mcpd_ind>=l  and 

(cirt .pol_ind="X*  or  pri_nature= • POLLUTION* )  and 

(To  select  Only  BAD  cases,  unblock  this  statement) 

(severity  in  {-MAJOR* , ‘POTENT* , 'MEDIUM* )  and) 

(  civt. service= 'FREIGHT  SHIP*  or  civt. service=* PUB.  TANKSHIP/BARGE* 
or  civt .service=*TANK  SHIP*  or 

( (civt. services 'PASSENGER*  or  civt .services 'PASSENGER  SHIP*)  and 
vidt.reg_gt>siOO)  ) 
into  temp  civt_dups; 
select  count (•)  num_civtdups 
from  civt_dups; 

(This  set  of  statements  selects  non-duplicate  rows  in  civt_dup.  Although 
this  is  an  approximation  of  duplicates,  its  not  a  bad  one.  Can't  really 


check  for  the  pollution  cases  since  mostly  number  of  cases  is  1) 
select  ♦  from  civt_dups 
group  ly  civtvkey , cirtdate 
into  temp  civt_nodups; 
select  count (*)  num_civtnodups 
from  civt_nodups; 

{group  by  vkey  to  attach  to  the  inspections  file.  Note  that  poll_incids  now 
gives  the  number  of  unique  incident  dates  associated  with  that  vessel  on 
a  cirtdate,  and  hence  is  probably  always  equal  to  1. 

Actually  poll_incids  is  superfluous  and  never  used  in  the  duration  file  anyway) 

select  civtvkey,  cirtdate,  count (*)  poll_incids 
from  civt_nodups  “ 

group  by  civtvkey,  cirtdate 
order  by  poll_incids  desc 
into  temp  cirt_civtO; 

select  count  (•)  nvim_cirtcivtO 
from  cirt_civtO; 

(drop  table  cirt_civtO;) 


(Here  we  do  the  last  part:  join  inspection  and  casualty  tables,  and  Unload 
2  Pollution  casualty  files  (one  for  M/Y  and  one  for  just  Y) ) 

drop  table  inspect; 
drop  table  inspect_MY; 
drop  table  inspect_Y; 
drop  table  justvkey; 
drop  table  vesschar; 
drop  table  durl; 
drop  table  dur2 ; 
drop  table  dur3 ; 

(I.  Join  hours  and  casualties. 

vidtcrst  sorted  by  iritvkey , iritdate,  and  cirt_civtO  is  sorted  by  civtvkey, 
cirtdate.  Hence  there  are  duplicate  vkeys  in  both  and  the  next  join 
statement  produces  a  small  cartesian  explosion,  but  this  is  ok  since  we  Need 
this  explosion  because 

(i)  we  need  to  match  only  where  cirtdate>iritdate,  ana 

(ii)  we  need  to  compute  MIN  duration  among  the  cartesian  matches) 

(This  first  set  of  statements  for  making  pollinsp  and  checking) 
select  unique  vidtcrst.*,  cirt_civtO.* 
from  vidtcrst,  outer  cirt_civtO 
where  cirt_civt0.civtvkey=vidtcrst .iritvkey  and 
cirt_civt 0 . cirtdate>=vidtcrst . iritdate 
into  temp  pollinsp; 

select  count {*)  num_pollinsp  from  pollinsp; 

(Count  number  of  unique  (iritvkey , iritdate)  in  pollinsp) 
select  unique  iritvkey , iritdate  from  pollinsp  into  temp  junkO; 
select  count (*)  numunia  pollinsp  from  junkO; 
drop  table  junkO; 

(Count  niimber  of  casualty  vkeys  that  Are  in  vidtcrst) 
select  count (*)  vidtcrst_keep  from  pollinsp 
where  civtvkey  is  not  null; 


(This  is  to  make  the  inspections  by  M/Y  and  also  by  just  Y  to  join  with 
the  so  grouped  duration  data  below  for  the  complete  data  set) 


select  *,  month (iritdate)  mo,year (iritdate)  ye 
from  vidtcrst 
into  temp  inspect; 

{By  MY) 
select 

iritvkey,  mo,  ye, 

sum(numcases)  numcases, s\im(hull_hr)  hull_hr,sum(roach_hr)  mach_hr, 
sum(train_hr)  train_hr,  sum(extra_hr)  extra_hr,sum(textra_hr)  textra_hr, 
sum(admin_hr)  admin_hr,  sum(travel_hr)  travel_hr,sum(ttravel_hr)  ttravel_hr, 
sum ( other_hr )  other_hr , 
sum ( num_def )  num_de  f , 

(Level  II  Dummies  from  Mike:  Duration  model  on  only  Level  II  activities 
Here  only  II. A  activities  since  only  U.S.  flag  MI  activities) 
sum ( numd2al )  numd2al , sum (numd2a2 )  nvimd2a2 , sum (numd2a3 )  numd2a3 , 

(CRST  types  of  inspections:  indicators) 

sum(crstannual)  crstannual,  sum (crstreinsp)  crstreinsp, 
sum(crstadmin)  crstadmin,sum{crsthull)  crsthull,sum(crstcoc)  crstcoc, 
sum (erst constr)  crstconstr , sum(crstcert )  crstcert, 
sum(crstinit )  erstinit , sum (crstmach)  crstmach,sum(crstdef )  erstdef, 
sum (erst other)  erstother , sum(crstrest)  erstrest 
from  inspect 
group  by  iritvkey, mo, ye 
into  temp  inspect_MY; 

{By  Y) 
select 

iritvkey,  ye, 

Siam (numcases )  numcases , sum (hull_hr)  hull_hr , sum (mach_hr )  mach_hr, 
sum(train_hr )  train_hr,  sum ( ext ra_hr )  extra_hr, sum (text ra_hr)  textra_hr, 
sum(admin_hr)  admin_hr,  sum (travel_hr)  travel_hr,sum(ttravel_hr)  ttravel_hr, 
sum ( other_hr )  other_hr , 
sum ( num_def )  num_de f , 

{Level  II  Dummies  from  Mike:  Duration  model  on  only  Level  ir  activities 
Here  only  II. A  activities  since  only  U.S.  flag  MI  activities) 
sum(numd2al)  numd2al,sum(numd2a2)  numd2a2,sum(numd2a3)  numd2a3 , 

{CRST  types  of  inspections:  indicators) 

sum (crstannual)  crstannual,  sum (crstreinsp)  crstreinsp, 

sum (erst admin)  crstadmin,sum(crsthull)  crsthull , sum (crstcoc)  crstcoc, 

sum (crstconstr )  crstconstr, sum (crstcert)  crstcert, 

sum(crstinit)  erstinit , sum (crstmach)  crstmach, sum (erstdef )  erstdef, 
sum (erstother)  erstother, sum (erstrest)  erstrest 
from  inspect 
group  by  iritvkey, ye 
into  temp  inspect_Y; 


{Make  a  table  grouped  Just  by  iritvkey  for  vessel  characteristics) 

select  iritvkey 

from  vidtcrst 

group  by  iritvkey 

into  temp  justvkey; 

select  count (*)  num_justvkey  from  justvkey; 
select  justvkey . iritvkey, 

vidt. service  service,  vidt.flag  flag,  vidt.reg_gt  req  gt. 
year (vidt .bld_dt)  yearbld,  vidt. route  route, 

{These  have  many  nulls  and  are  used  only  for  model  of  inspection  if  adequate) 
vidt .dblside_typ,  vidt .dblbott_typ,  vidt .prop_typ,  vidt. design,  vidt .hull_mat 
from  justvkey,  vidt 
where 


or 


justvkey.iritvkey=vidt.vkey  and 

( 

vidt .services ’FREIGHT  SHIP*  or  vidt .services ’PUB.  TANKSHIP/ BARGE* 
vidt. services -TANK  SHIP*  or  { (vidt .services* PASSENGER*  or 
vidt .services* PASSENGER  SHIP*)  and  vidt .reg_gt>sl00) 

)  and 

vidt. flags "US* 
into  temp  vesschar; 

select  count  (*)  nuin_vesschar  from  vesschar; 


{II.  Here  we  compute  Duration,  and  get  rid  of  duplicate  values. 

We  G^oup  by  Month/Year  of  IRIT  inspection.  This  is  since  several  Level  II 
activities  may  be  grouped  in  a  bunch  but  on  several  different  days.  We 
would  like  to  count  this  bunch  only  once.  There  is  still  an  approximation 
since  bunch  may  overlap  between  two  months.  Can't  prevent  this  in  SQL 
Hence  we  do  two  data  sets: 

(i)  Group  by  Month/Year,  as  described  above,  and 

(ii)  Group  by  just  Year.  This  is  a  smaller  data  set,  and  is  the  correct  one 
for  Level  II  activities  that  are  performed  over  1  or  2  years) 

{Note;  for  inspections  with  no  casualty,  durations {1/1/95  -  iritdate) ) 

{Data  set  1;  Group  by  Month/Year) 

select  iritvkey,  month (iritdate)  mo,  year (iritdate)  ye, 

(cirtdate-iritdate)  dur_cas,  (*l/l/95*-iritdate)  dur_nocas 
from  pollinsp 
into  temp  durl; 

select  iritvkey,mo,ye,min(dur_cas)  mindur_cas ,max (dur_nocas )  dur_nocas 
from  durl 

group  by  iritvkey,  mo, ye 
order  by  iritvkey , ye, mo 
into  temp  dur2 ; 

select  count (*)  all_rows_My_l  from  dur2; 

select  •  from  dur2  where  mindur_cas  is  not  null  into  temp  junkl; 
select  count (•)  with_casualty_MY_l  from  junkl; 
drop  table  junkl; 

{Join  duration  and  inspection  tables) 
select  inspect_MY . * ,  mindur_cas,  dur_nocas, 

service  ,  flag,  reg_gt,  yearbld,  route, 
dblside_typ,  dblbott_typ,  prop_typ,  design,  hull_mat 
from  inspect_MY,  dur2,  vesschar 

where  inspect_MY . iritvkey=dur2 . iritvkey  and 

inspect_MY . iritvkey=vesschar . iritvkey  and 
inspect_MY .mo=dur2 .mo  and 
inspect_MY .ye=dur2 .ye 
order  by  iritvkey, ye, mo 
into  temp  dur3 ; 

select  count  {*)  all_rows_M’i’_2  from  dur3; 

select  *  from  dur3  where  mindur_cas  is  not  null  into  temp  junkl; 
select  count (*)  with_casualty_My_2  from  junkl; 
drop  table  junkl; 

unload  to  ■/nfs/ttd32/optical/50b/trix.dat/dur_2a2_my .pollall*  delimiter  *,* 
select  * 
from  dur3 ; 

{Check  the  aggregation) 

select  coun:(*)  numrows,  sum(hu).l_hr)  tot_hull_hr,  sum  (m>ach_hr ) 


tot_inach_hr , 

sum  (admin_hr )  tot_acainin_hr 
from  dur3; 

select  count  ( * )  numrows ,  sum  (numd2al )  numd2al ,  Siam  {numd2a2 )  numd2a2 , 
sum  ( numd2a3 )  numd2 a3 
from  dur3; 

drop  table  durl; 
drop  table  dur2; 
drop  table  dur3; 

{Data  set  2:  Group  by  just  Year) 

select  iritvkey,  month (iritdate)  mo,year (iritdate)  ye, 

(cirtdate-iritdate)  dur_cas,  ("1/1/95 --iritdate)  dur_nocas 
from  pollinsp 
into  tetap  durl; 

select  iritvkey , ye  ,min  (dur_cas )  mindur_cas  ,max  (dur_nocas )  dur_nocas 
from  durl 

group  by  iritvkey, ye 
order  by  iritvkey, ye 
into  temp  dur2; 

select  count (♦)  all_rows_Y_l  from  dur2; 

select  *  from  dur2  where  mindur_cas  is  not  null  into  temp  junkl? 
select  count (*)  with_casualty_Y_l  from  junkl; 
drop  table  junkl; 


{Join  duration  and  inspection  tables) 
select  inspect_Y.*,  mindur_cas,  dur_nocas, 

service  ,  flag,  reg_gt,  yearbld,  route, 
dblside_typ,  dblbott_typ,  prop_typ,  design,  hull_mat 
from  inspect_Y,  dur2,  vesschar 

where  inspect_Y. iritvkey =dur2 . iritvkey  and 

inspect_Y . iritvkey =vesschar . iritvkey  and 
inspec t_Y . ye=dur2 . ye 
order  by  iritvkey, ye 
into  temp  dur3  ,* 

select  count (*)  all_rows_Y_2  from  dur3; 

select  *  from  dur3  where  mindur^cas  is  not  null  into  temp  junkl; 
select  count  (’^)  with_casualty_Y_2  from  junkl; 
drop  table  junkl; 

unload  to  "/nf s/ttd32/optical/50b/trix.dat/dur_2a2_y .pollall"  delimiter  " , " 
select  ♦ 
from  dur3; 

select  count (*)  numrows,  sum{hull_hr)  tot_hull_hr,  sum(mach_hr) 

tot_mach_hr , 

sum  (admin_hr )  tot_admin_hr 
from  dur3; 

select  count  (*)  numrows,  sum(numd2al)  numd2al ,  sum (numd2a2 )  numd2a2, 
sum (numd2a3 )  numd2a3 
from  dur3 ; 

(print  this  out  for  var  names  to  an  output  file  since  need  also  to  print  for 
pollution  data  set) 

output  to  /users /gawande/dur_a2_poll .out 
select  * 
from  dur3 

where  reg_gt >100000; 
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XIUR_A3.SQL 

{MI  Cases) 

(After  conversation  with  Wyman  Briggs  on  18  July,  1994:  Use  IRIT  indicators 
for  inspection  types  for  Level  II. A. 1-3  activities,  and  use  Peggy  Thurber's 
mapping  (grouped  by  Mike  into  d31-d39  indicators)  for  Level  III  activities) 

(1.  Change  inspection  from  IRIT  appropriately:  cert_inspect  for  COI, 
reinspect  for  Reinspection,  and  hull  for  hull  exam, 

2.  Change  the  Unload  to  file  else  WILL  WRITE  OVER) 

(Only  post  1991  (incl)  inspections  since  duration  since  last  inspection  to 
casualty,  and  first  casualty  in  Minmod  is  02/91} 

( 

Duration  data:  The  idea  is  as  follows. 

The  Ihs  variable  is  duration  from  the  Last  inspection  till  date  of  casualty. 
Analysis  will  be  by  Level  II  activities:  (i)  3  MI  activities:  COI,  Annual 
Vessel  Reinspection,  Hull  Exam,  and  (ii)  3  PS  activities:  Annual  Foreign 
Freight  Exam,  Annual  Foreign  Tanker  Vessel  Exam,  Annual  Foreign  Passenger. 

The  same  vessel  inspected  (using  same  activity)  twice  is  treated  as  two 
different  vessels,  and  as  two  observations  (i.e.  Hence  large  data  set.) 

If  the  vessel  has  no  casualty  after  an  activity,  the  Ihs  takes  the  value  of 
duration  till  the  next  activity  of  the  same  type.  The  problem  is  that 

(a)  casualty  may  not  have  anything  to  do  with  that  activity.  For,  example 
pri_nature  in  CIRT  may  possess  such  info.  This  can  (should?)  be  incorporated 
by  attributing  only  those  casualties  to  that  activity.  This  requires  that 
pri_nature  should  be  mapped  into  Level  II  activities.  This  mapping  will 
probably  be  one(pri_nature)  to  many(Level  II  activities), 

(b)  should  we  be  taking  duration  till  next  activity  of  the  same  type,  or  any 
activity.  If  we  take  into  consideration  pri_nature  and  ascribe  only  the 
•casualties  connected  with  that  activity"  in  computing  the  Ihs  variable,  then 
we  take  duration  till  next  activity  of  the  Same  type  if  no  casualty  in  the 
meantime.  Else  not  so  easy,  since  casualty  may  be  of  a  nature  attributable 
to  another  kind  of  activity.  Even  if  pri_nature  used,  probably  not  too  easy, 
since  mapping  is  probably  one (pri_nature)  to  many  or  all (Level  II  activity). 
So  problem  still  unanswered. 

Solution:  We  take  the  simple  road.  All  casualties,  not  just  those 

attributable  directly  to  the  Level  II  activity  is  considered.  This  is  OK 
since  anyway  a  large  range  of  inspections  map  into  a  Level  II  activity,  and 
Many  pri_natures  map  into  this  set  of  inspections.  Also  since  some  vessels 
are  subject  to  a  Level  II  activity  sooner  than  others,  rather  than  take  the 
duration  between  two  inspections,  in  the  event  of  No  casualty  we  take  the 
duration  between  the  inspection  date  and  1/1/1995.  The  problem  is  that  the 
closer  the  inspection  to  that  date,  the  shorter  the  duration  recorded.  But 
mainly,  it  is  convenient,  the  duration  so  computed  does  not  exceed  the 
duration  where  there  Are  casualties,  and  since  the  last  inspection  was  in 
12/1993,  this  simplification  is  not  expected  to  qualitatively  change  any 
results. 


rhs  variable  is  still  number  of  hours  devoted  to  that  activity  etc.  The 
main  difference  is  the  age  of  the  vessel,  which  is  to  be  computed  at  the  time 
of  casualty,  or  at  the  time  of  next  inspection  if  no  casualty. 

) 


(For  the  hours  of  inspection  equation  have  (i)  num_def  from  IRIT  and 
(ii)  indicators  for  inspection  types  for  other  CRST  inspections) 

{***»**«********.*****.****«*H0URS  of  inspections* *****•*********•*******) 


select 

irit.vkey  iritvkey,  irit.dt  iritdate. 
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count  (*)  nuincases,suin(hr_hull)  hull_hr,  sviin(hr_inach)  inach_hr, 

sum (hr_t rain)  train_hr,  sum(hr_extra)  ext ra_hr, sum (hr_t extra)  textra_hr, 

sum(hr_admin)  adroin_hr,  sum (hr_t ravel)  travel_hr,sum(hr_ttravel)  ttravel_hr, 

sum (hr_other )  other_hr , 

sum  Ur it . num_def )  num_def , 

{Sum  of  Mike's  dummies  (based  on  Peggy's  mapping)  gives  the  total  of 
sub- inspect ions  for  that  Level  II  activity  on  that  date) 
sum(d2al)  numd2al,sum(d2a2)  numd2a2, siam(d2a3 )  numd2a3, 

(CRST  types  of  inspections;  indicators) 

sum  ( erst .dannual)  crstannual,  sum (erst .dreinsp)  erstreinsp, 

sum ( erst .dadmin)  erstadmin, sum (erst .dhull)  crsthull , sum (erst .dcoc)  crstcoc, 

sum ( erst .dconstr)  erstconstr, sum ( erst. deert)  crstcert, 

sum (erst. dinit)  crstinit,sum{crst.dmach)  crstmach, sum ( erst. ddeficit)  erstdef, 
stim  (erst  .dother)  erstother,  sum  (erst  .drest)  erstrest 
from  erst,  irit 

(Since  first  casualty  case  is  02/91  euid  duration  is  from  last  inspection,  only 
inspections  after  1991  are  considered.  This  is  unlike  the  Poisson  stuff  where 
inspections  after  1989  are  considered) 

where 

(activity  II.A.3=Hull  Exam) 
irit .hull_inspect=*X“  and 

irit.micase[l,2]=*MI''  and 
irit . vkey [ 1 , 2] =“VN“  and 
crst.case[l,2]=*MI-  and 

(since  first  casualty  case  is  02/91  and  duration  is  from  last  inspec) 
crst.case[3,4)>="91"  and 
erst . case=irit .micase 

group  by  irit. vkey,  irit.dt 
into  temp  crst_tempO; 

select  count (*)  countcrst_tempO 
from  crst_tempO; 


{This  file  joins  CRST_TEMP0  (agg  hours  by  vkey)  to  VIDT  to  identify  the  foil: 
service,  flag,  reg_gt,  bld_yr,  route.) 

(drop  table  vidterst;) 

select 

crst_tempO . * , 

vidt. service  service,  vidt.flag  flag,  vidt.reg_gt  reg_gt, 
year (vidt.bld_dt)  yearbld,  vidt. route  route, 

(These  have  many  nulls  and  are  used  only  for  model  of  inspection  if  adequate) 
vidt.dblside_typ,  vidt.dblbott_typ,  vidt .prop_typ,  vidt. design,  vidt .hull_mat 

from  crst_tempO,  vidt 
where 

crst_tempO . iritvkey=vidt .vkey  and 
( 

vidt .services "FREIGHT  SHIP"  or  vidt .service* "PUB.  TANKSHIP/ BARGE"  or 
vidt.service="TANK  SHIP"  or  ( (vidt. service* "PASSENGER"  or 
vidt .service*" PASSENGER  SHIP")  and  vidt .reg_gt>*100 ) 

)  and 

vidt . f lag="US" 
into  temp  vidterst; 


select  count (*) 
from  vidtcrst; 


{***************.************Pej.sonnel 


Casualties************************) 


{  Here,  casualty  data  is  assembled  from  CIVT  and  CIRT. 

CIRT,  and  CIVT  are  joined  by  (unique)  Mccase  and  select  out  only 
deep-draft  vessels  (hence  a  little  use  of  VIDT) .  Personnel  casualties  are 
constructed  from  CIRT  (which  has  no  vkey)  and  joined  to  CIVT  to  associate 
them  with  a  Vkey.  There  are  duplicate  Vkey  records  in  CIVT  (of  the  28,821 
records,  13,548  have  unique  Vkey),  so  we  need  to  choose  only  unique  records) 

{ 

drop  table  civt_dups; 
drop  table  civt_nodups ; 
drop  table  cirt_civtO; 

) 

select 

civt .vkey  civtvkey .deaths .missing, injured, cirt . incident_dt  cirtdate 
from  cirt,  civt,  vidt 

(Note  that  in  CIVT,  the  vkey  is  not  unique  (in  VIDT  vkey  is  unique) .  Hence 
first  get  temp  table  civt_dups  (with  duplicates) .  Then  check  for  number 
of  duplicates  before  grouping  by  vkey) 
where 

cirt .mccase=civt .mccase  and 
civt . vkey = vidt .vkey  and 

(Jim  Law:  converstion  on  July  14,  1994.  The  following  query  contracts 
CIRT  to  cases  that  are  correct  (drop  mystery  and  inconsequential 
casualties).  ctf_ind=X  are  inconsequential  cases.  command_endorse  and 
command_cls  are  mutually  exclusive.  command_endorse=X  implies  that 
case  has  been  reviewed  and  fwd  to  dt/HQ  for  review.  command_cls=X  means  that 
case  is  done  and  does  not  require  review  at  dt/HQ.  command_endorse=X  are 
legit  cases  and  all  should  be  considered.  Of  the  command_cls=X  cases,  only 
those  with  ctf_ind=null  should  be  considered  since  ctf_ind=X  implies  an 
inconsequential  case.  ) 

(cirt . command_endorse=*X“ 

or  (cirt .command_cls="X"  and  cirt.ctf_ind  is  null))  and 

(cirt .deaths>0  or  cirt .missing>0  or  cirt.injured>0)  and 
(  civt .service= "FREIGHT  SHIP"  or  civt . service=" PUB .  TANKSHIP /BARGE" 
or  civt .service=" TANK  SHIP"  or 

{ (civt . service="PASSENGER"  or  civt .services "PASSENGER  SHIP")  and 
vidt .reg_gt>sl00)  ) 
into  temp  civt_dups; 
select  count (*)  num_civtdups 
from  civt_dups; 

(This  set  of  statements  selects  non-duplicate  rows  in  civt_dup.  If  group 
by  just  c i vt vkey, incident _dt,  get  almost  same  rows  as  this) 
select  *  from  civt_dups 

group  by  civtvkey, cirtdate,  deaths, missing, injured 

into  temp  civt_nodups; 

select  count (*)  num_civtnodups 

from  civt_nodups; 

(group  by  vkey  to  attach  to  the  inspections  file.  Note  that  numdates  now 
gives  the  number  of  unique  incident  dates  associated  with  that  vessel) 


select  civtvkey,  cirtdate, 

suin(deaths)  deaths, sum (missing)  missing, sum (injured)  injured 
from  civt_nodups 
group  by  civtv)cey,  cirtdate 
order  by  deaths  desc,  injured  desc 
into  temp  cirt_civtO; 

select  count (*)  nuro_cirtcivtO 
from  cirt_civtO; 

{drop  table  cirt_civtO ; } 


(Here  we  do  the  last  part:  join  inspection  and  casualty  tables,  and  Unload 
2  Personnel  casualty  files  (one  for  M/Y  and  one  for  just  Y) ) 


{ 

drop  table  persinsp; 
drop  table  inspect; 
drop  table  inspect_My; 
drop  table  inspect_Y; 
drop  table  justv)cey; 
drop  table  vesschar; 
drop  table  durl; 
drop  table  dur2; 
drop  table  dur3 ; 

) 

(I.  Join  hours  and  casualties. 

vidtcrst  sorted  by  iritvkey , iritdate,  and  cirt_civtO  is  sorted  by  civtvkey, 
cirtdate.  Hence  there  are  duplicate  vkeys  in  both  and  the  next  join 
statement  produces  a  small  cartesian  explosion,  but  this  is  ok  since  we  Need 
this  explosion  because 

(i)  we  need  to  match  only  where  cirtdate>iritdate,  and 

(ii)  we  need  to  compute  MIN  duration  among  the  cartesian  matches) 


(This  first  set  of  statements  for  making  persinsp  and  checking) 
select  unique  vidtcrst.*,  cirt_civtO.* 
from  vidtcrst,  outer  cirt_civtO 
where  cirt_civtO .civtvkeysvidtcrst . iritvkey  and 
cirt_civtO .cirtdate>=vidccrst . iritdate 
into  temp  persinsp; 

select  count (*)  num_persinsp  from  persinsp; 

(Count  number  of  unique  (iritvkey , iritdate)  in  persinsp) 
select  unique  iritvkey , iritdate  from  persinsp  into  temp  junkO; 
select  count (*)  numunia  persinsp  from  junkO; 
drop  table  junkO; 

{Count  number  of  casualty  vkeys  that  Are  in  vidtcrst) 
select  count  (*)  vidtcrst_keep  from  persinsp 
where  civtvkey  is  not  null; 


(This  is  to  make  the  inspections  by  M/Y  and  also  by  just  Y  to  join  with 
the  so  grouped  duration  data  below  for  the  complete  data  set) 

select  *,  month (iritdate)  mo, year (iritdate)  ye 
from  vidtcrst 
into  temp  inspect; 

(By  MY) 
select 

iritvkey,  mo,  ye, 

sum(numcases)  numcases , sum (hull_hr )  hull_hr , sum (mach_hr )  mach_hr. 


sum(train_hr )  train_hr,  suin(extra_hr)  extra_hr, sum ( text ra_hr)  textra_hr, 
sum(admin_hr)  a(3min_hr,  sum(travel_hr)  travel_hr,sum(ttravel_hr)  ttravel  hr 
suro(other_hr)  other_hr, 
sum{niun_def )  num_def, 

{Level  II  Dummies  from  Mike:  Duration  model  on  only  Level  II  activities 
Here  only  II. A  activities  since  only  U.S.  flag  MI  activities) 
sum(numd2al)  numd2al,sum(numd2a2)  numd2a2,sum(numd2a3)  numd2a3, 

{CRST  types  of  inspections:  indicators) 

sum (erst annual)  crstannual,  sum(crstreinsp)  erstreinsp, 
sum(crstadmin)  erstadmin, sum(crsthull)  crsthull,sum(crstcoc)  crstcoc, 
sum (erst constr)  crstconstr, sum(crstcert)  crstcert, 
sum(crstinit)  crstinit,sum(crstmach)  crstmach,sum(crstdef )  erstdef, 
sum (erst other)  erstother, sum{crstrest)  erstrest 
from  inspect 
group  by  iritvkey,mo,ye 
into  temp  inspect_MY; 

{By  Y) 
select 

iritvkey,  ye, 

sum{numcases)  numcases,sim{hull_hr)  hull_hr,sum(mach_hr)  mach_hr, 
sum(train_hr)  train_hr,  sum (extra_hr)  extra_hr, sum (text ra_hr)  textra_hr, 
sum(admin_hr)  admin_hr,  sum(travel_hr)  travel_hr,sum(ttravel_hr)  ttravel_hr, 
sum(other_hr)  other_hr, 
sum ( num_def )  num_de f , 

{Level  II  Dummies  from  Mike:  Duration  model  on  only  Level  II  activities 
Here  only  II. A  activities  since  only  U.S.  flag  MI  activities) 
sum(numd2al)  numd2al,sum(numd2a2)  numd2a2 , sum(nvimd2a3 )  numd2a3  , 

(CRST  types  of  inspections:  indicators) 

sum  (crstannual)  crstannual,  sum (erstreinsp)  erstreinsp, 
sum (erstadmin)  erstadmin, sum (crsthull)  crsthull , sum (crstcoc)  crstcoc, 
sum (erst constr)  crstconstr, sum (crstcert)  crstcert, 
sum(crstinit)  erstinit, sum (crstmach)  crstmach, sum (erstdef ) -erstdef, 
sum(crstother)  erstother , sum (erstrest )  erstrest 
from  inspect 
group  by  iritvkey, ye 
into  temp  inspect_Y; 


{Make  a  table  grouped  Just  by  iritvkey  for  vessel  characteristics) 

select  iritvkey 

from  vidterst 

group  by  iritvkey 

into  temp  justvkey; 

select  count {*)  num_justvkey  from  justvkey; 
select  justvkey . iritvkey, 

vidt. service  service,  vidt.flag  flag,  vidt.reg_gt  reg_gt, 
year (vidt.bld_dt)  yearbld,  vidt. route  route, 

{These  have  many  nulls  and  are  used  only  for  model  of  inspection  if  adequate) 
vidt.dblside_typ,  vidt .dblbott_typ,  vidt .prop_typ,  vidt. design,  vidt .hull_mat 
from  justvkey,  vidt 
where 

justvkey . iritvkey=vidt . vkey  and 

( 

vidt .services 'FREIGHT  SHIP'  or  vidt .services 'PUB.  TANKSHIP/BARGE'  or 
vidt .services 'TANK  SHIP'  or  ( (vidt .services 'PASSENGER*  or 
vidt .services 'PASSENGER  SHIP')  and  vidt .reg_gt>sl00) 

)  and 

vidt . flags'US* 
into  temp  vesschar; 


select  count  (*)  nuituvesschar  from  vesschar; 

{The  following  comments  apply  to  when  I  was  using  Peggy's  mapping  for 
Level  II  activities.  But  since  we  are  now  using  IRIT  indicators  are  these 
comments  still  applicable?  We'll  find  out,  if  there  is  a  big  difference 
between  the  M/Y  and  the  just  Y  file  size} 

{II.  Here  we  compute  Duration,  and  get  rid  of  duplicate  values. 

We  Group  by  Month/Year  of  IRIT  inspection.  This  is  since  several  Level  II 
activities  may  be  grouped  in  a  bunch  but  on  several  different  days.  We 
would  li)ce  to  count  this  bunch  only  once.  There  is  still  an  approximation 
since  bunch  may  overlap  between  two  months.  Can*t  prevent  this  in  SQL 
Hence  we  do  two  data  sets: 

(i)  Group  by  Month/Year,  as  described  above,  and 

(ii)  Group  by  just  Year.  This  is  a  smaller  data  set,  and  is  the  correct  one 
for  Level  II  activities  that  are  performed  over  1  or  2  years) 

{Note:  for  inspections  with  no  casualty,  duration= (1/1/95  -  iritdate) } 

{Data  set  1:  Group  by  Month/Year) 

select  iritvkey,  month (iritdate)  mo,  year (iritdate)  ye, 

(cirtdate-iritdatG)  dur_cas,  ("l/l/95*'-iritdate)  dur.nocas 
from  persinsp 
into  temp  durl; 

select  iritvkey , mo , ye , min  ( dur_cas )  mindur_cas  , max  (dur_nocas )  dur_nocas 
from  durl 

group  by  iritvkey,  mo, ye 
order  by  iritvkey , ye, mo 
into  temp  dur2; 

select  count (*)  all_rows_MY_l  from  dur2; 

select  *  from  dur2  where  mindur_cas  is  not  null  into  temp  junkl; 
select  count (*)  with_casualty_MY_l  from  junkl; 
drop  table  junkl; 

(Join  duration  and  inspection  tables) 
select  inspect_MY . * ,  mindur_cas,  dur^nocas, 

service  ,  flag,  reg_gt,  yearbld,  route, 
dblside_typ,  dblbott_typ,  prop_typ,  design,  hull_mat 
from  inspect.MY,  dur2 ,  vesschar 

where  inspect_MY . iritvkey=dur2 . iritvkey  and 

inspect_MY . iritvkey=vesschar . iritvkey  and 
inspect_MY.mo=dur2 .mo  and 
inspect_MY .ye=dur2 .ye 
order  by  iritvkey , ye, mo 
into  temp  dur3; 

select  count (*)  all_rows_MY_2  from  dur3; 

select  *  from  dur3  where  mindur_cas  is  not  null  into  temp  junkl; 
select  count {*)  with_casualty_MY_2  from  junkl; 
drop  table  junkl; 

unload  to  •/nfs/ttd32/optical/50b/trix.dat/dur_2a3_my .pers"  delimiter 
select  * 
from  dur3 ; 

{Check  the  aggregation) 

select  count (*)  numrows,  sum(hull_hr)  tot_hull_hr,  sum(mach_hr) 

tot_mach_hr, 

sum { admin_hr )  t ot_admin_hr 
from  dur3; 

select  count (♦)  numrows,  sum(numd2al)  numd2al , sum (numd2a2 )  numd2a2, 
sum (numd2a3 )  numd2a3 


from  dur3; 


drop  tedsle  durl  ; 
drop  table  dur2 ; 
drop  table  dur3 ; 

{Data  set  2;  Group  by  just  Year) 

select  iritvkey,  month (iritdate)  mo,year (iritdate)  ye, 

(cirtdate-iritdate)  dur_cas,  (•l/l/95'-iritdate)  dur_nocas 
from  persinsp 
into  temp  durl; 

select  iritvkey,ye,min (dur_cas)  mindur_cas,max(dur_nocas)  dur_nocas 
from  durl 

group  by  iritvkey, ye 
order  by  iritvkey, ye 
into  temp  dur2 ; 

select  count (*)  all_rows_y_l  from  dur2; 

select  *  from  dur2  where  mindur_cas  is  not  null  into  temp  junkl; 
select  count (*)  with_casualty_Y_l  from  junkl; 
drop  table  junkl; 


(Join  duration  and  inspection  tables) 
select  inspect_Y.*,  mindur_cas,  dur_nocas , 

service  ,  flag,  reg_gt ,  yearbld,  route, 
dblside_typ,  dblbott_typ,  prop_typ,  design,  hull_mat 
from  inspect_Y,  dur2,  vesschar 

where  inspect_Y. iritvkey=dur2 . iritvkey  and 

inspect_y . iritvkey=vesschar . iritvkey  and 
inspect_Y . y e=dur 2 . ye 
order  by  iritvkey, ye 
into  temp  dur3 ; 

select  count (*)  all_rows_Y_2  from  dur3; 

select  *  from  dur3  where  mindur_cas  is  not  null  into  temp  junkl; 
select  count (*)  with_casualty_Y_2  from  junkl; 
drop  table  junkl; 

unload  to  ■ /nfs/ttd32/optical/50b/trix.dat/dur_2a3_y .pers*  delimiter 
select  • 
from  dur3 ; 


select  count (*)  numrows,  sum(hull_hr)  tot_hull_hr,  suro(mach_hr) 

tot_mach_hr , 

sum (admin_hr )  tot_admin_hr 
from  dur3 ; 

select  count (*)  nximrows,  sum(numd2al)  numd2al,sum(numd2a2)  numd2a2, 
sum (nurod2a3 )  numd2a3 
from  dur3 ; 


(print  this  out  for  var  names  to  an  output  file  since  need  also  to  print  for 
pollution  data  set) 

output  to  /users /gawande/dur_a3_pers .out 
select  * 
from  dur3 

where  reg_gt>100000; 


^ ***»**•• *****»*»«**»********Pollution 


Casualties*** •*•****• *****••***•••) 


(Be  sure  to  run  MIDURl  and  MIDUR2  before  these  two  progs) 

{  Here,  pollution  casualty  data  is  assembled  from  CIVT  and  CIRT. 

CIRT,  and  CIVT  are  joined  by  (unique)  Mccase  and  select  out  only 
deep-draft  vessels  (hence  a  little  use  of  VIDT) .  Pollution  incidents  are 
constructed  from  CIRT  (which  has  no  vkey)  and  joined  to  CIVT  to  associate 
them  with  a  Vkey.  There  are  duplicate  Vkey  records  in  CIVT  (of  the  28,821 
records,  13,548  have  unique  Vkey),  so  we  need  to  choose  only  unique  records) 

drop  table  civt_dups; 
drop  table  civt_nodups ; 
drop  table  cirt_civtO; 

select 

civt.vkey  civtvkey,  cirt .incident_dt  cirtdate 
from  cirt,  civt,  vidt 

(Note  that  using  VIDT  for  the  reg_gt>100  info  and  hence  need  Unique  in  select 
statement  since  in  CIVT,  the  vkey  is  not  unique  (in  VIDT  vkey  is  unique) ) 
where 

cirt .mccase=civt .mccase  and 
c i vt . vkey =vi dt . vkey  and 

(Jim  Law:  converstion  on  July  14,  1994.  The  following  query  contracts 
CIRT  to  cases  that  are  correct  (drop  mystery  and  inconsequential 
casualties).  ctf_ind=X  are  inconsequential  cases.  command_endorse  and 
command_cls  are  mutually  exclusive.  command_endorse=X  implies  that 
case  has  been  reviewed  and  fwd  to  dt/HQ  for  review.  command_cls=X  means  that 
case  is  done  and  does  not  require  review  at  dt/HQ.  coinmand_endorse=X  are 
legit  cases  and  all  should  be  considered.  Of  the  comraand_cls=X  cases,  only 
those  with  ctf_ind=null  should  be  considered  since  ctf_ind=X  implies  an 
inconsequential  case.  ) 

(Jim  Law;  converstion  on  July  14,  The  following  query  contracts 

CIRT  to  cases  that  are  correct  (drop  mystery  and  inconsequential 
casualties).  ctf_ind=X  are  inconsequential  cases.  command_endorse  and 
command_cls  are  mutually  exclusive.  command_endorse=X  implies  that 
case  has  been  reviewed  and  fwd  to  dt/HQ  for  review.  command_cls=X  means  that 
case  is  done  and  does  not  require  review  at  dt/HQ.  command_endorse=X  are 
legit  cases  and  all  should  be  considered.  Of  the  command_cls=X  cases,  only 
those  with  ctf_ind=null  should  be  considered  since  ctf_ind=X  implies  an 
inconsequential  case.  } 

(cirt . coininand_endorse=’X’ 

or  (cirt .command_cls  =  ''X*'  and  cirt.ctf_ind  is  null))  and 
cirt .mcpd_ind>=l  and 

(cirt .pol_ind="X"  or  pri_nature= • POLLUTION" )  and 

(To  select  Only  BAD  cases,  unblock  this  statement) 

{severity  in  ( "MAJOR* , "POTENT" , "MEDIUM" )  and) 

(  civt .service=*FREIGHT  SHIP"  or  civt. services "PUB.  TANKSHIP/BARGE* 
or  civt . services "TANK  SHIP"  or 

( (civt. services "PASSENGER*  or  civt . services "PASSENGER  SHIP")  and 
vidt.reg_gt>slOO)  ) 
into  temp  civt_dups; 
select  count (*)  num_civtdups 
from  civt_dups; 

(This  set  of  statements  selects  non-duplicate  rows  in  civt_dup.  Although 
this  is  an  approximation  of  duplicates,  its  not  a  bad  one.  Can't  really 


check  for  the  pollution  cases  since  mostly  number  of  cases  is  1) 
select  *  from  civt_dups 
group  by  civtvkey , cirtdate 
into  temp  civt_nodups; 
select  count (*)  num_civtnodups 
from  civt_nodups; 

{group  by  vkey  to  attach  to  the  inspections  file.  Note  that  poll.incids  now 
gives  the  number  of  unique  incident  dates  associated  with  that  vessel  on 
a  cirtdate,  and  hence  is  probably  always  equal  to  1. 

Actually  poll_incids  is  superfluous  and  never  used  in  the  duration  file  anyway) 

select  civtvkey,  cirtdate,  count (*)  poll_incids 
from  civt_nodups  ” 

group  by  civtvkey,  cirtdate 
order  by  poll_incids  desc 
into  temp  cirt_civtO; 

select  count {*)  num_cirtcivtO 
from  cirt_civtO; 

{drop  table  cirt_civtO;) 


(Here  we  do  the  last  part:  join  inspection  and  casualty  tables,  and  Unload 
2  Pollution  casualty  files  (one  for  M/Y  and  one  for  just  Y) ) 

drop  table  inspect; 
drop  table  inspect_MY; 
drop  table  inspect_Y; 
drop  table  justvkey; 
drop  table  vesschar; 
drop  table  durl; 
drop  table  dur2; 
drop  table  dur3; 

(I.  Join  hours  and  casualties. 

vidtcrst  sorted  by  iritvkey, iritdate,  and  cirt_civtO  is  sorted  by  civtvkey, 
cirtdate.  Hence  there  are  duplicate  vkeys  in  both  and  the  next  join 
statement  produces  a  small  cartesian  explosion,  but  this  is  ok  since  we  Need 
this  explosion  because 

(i)  we  need  to  match  only  where  cirtdate>iritdate,  and 

(ii)  we  need  to  compute  KIN  duration  among  the  cartesian  matches) 

(This  first  set  of  statements  for  making  pollinsp  and  checking) 
select  unique  vidtcrst.*,  cirt_civtO.* 
from  vidtcrst,  outer  cirt_civtO 
where  cirt_civtO .civtvkey=vidtcrst . iritvkey  and 
cirt_civt 0 . cirtdate>=vidtcrst . iritdate 
into  temp  pollinsp; 

select  count  (•)  niim_pollinsp  from  pollinsp; 

{Count  number  of  unique  (iritvkey , iritdate)  in  pollinsp) 
select  unique  iritvkey, iritdate  from  pollinsp  into  temp  junkO; 
select  count (*)  numunia  pollinsp  from  junkO; 
drop  table  junkO; 

{Count  number  of  casualty  vkeys  that  Are  in  vidtcrst) 
select  count (*)  vidtcrst_keep  from  pollinsp 
where  civtvkey  is  not  null; 


{This  is  to  make  the  inspections  by  M/Y  and  also  by  just  Y  to  join  with 
the  so  grouped  duration  data  below  for  the  complete  data  set) 


select  *,  month (iritdate)  mo.year (iritdate)  ye 
from  vidtcrst 
into  temp  inspect; 

{By  MY) 
select 

iritvkey,  mo,  ye, 

sum(n\amcases)  numcases,sum(hull_hr)  hull_hr,sum(mach_hr)  mach_hr, 
sum(train_hr)  train_hr,  sim>(extra_hr)  extra_hr, sum ( text ra_hr)  textra_hr, 
sum(admin_hr)  admin.hr,  sum(travel_hr)  travel_hr,svim(ttravel_hr)  ttravel_hr, 
sum(other_hr)  other_hr, 
sum ( num_de f )  num_de  f , 

(Level  II  Dummies  from  Mike:  Duration  model  on  only  Level  II  activities 
Here  only  II. A  activities  since  only  U.S.  flag  MI  activities) 
sum(numd2al)  numd2al,sum(numd2a2)  numd2a2,sum(numd2a3)  numd2a3, 

(CRST  types  of  inspections:  indicators) 

sum(crstannual)  crstannual,  sum (crstreinsp)  crstreinsp, 
sum  (erst admin)  crstadmin,sum(crsthull)  crsthull,sum(crstcoc)  crstcoc, 
sum ( erst constr)  crstconstr, sum (erst cert)  crstcert, 
sum(crstinit)  erstinit, sum(crstmach)  crstmach,sum(crstdef )  erstdef, 
sum (erst other)  erstother , sum (erstrest )  erstrest 
from  inspect 
group  by  iritvkey , mo, ye 
into  temp  inspect_MY; 

(By  Y) 
select 

iritvkey,  ye, 

sum(numcases)  numcases,sum(hull_hr)  hull_hr ,sum(mach_hr)  mach_hr, 
sum(train_hr)  train_hr,  sum(extra_hr)  extra_hr, sum (text ra_hr)  textra_hr, 
sum (admin_hr )  admin_hr,  sum (travel_hr )  travel_hr,sum(ttravel_hr)  ttravel_hr, 
s  urn ( ot he r_hr )  o t her _hr , 
sum  ( nxim_def )  num_de f , 

(Level  II  Dummies  from  Mike:  Duration  model  on  only  Level  II  activities 
Here  only  II. A  activities  since  only  U.S.  flag  MI  activities) 
sum(numd2al)  numd2al , sum (numd2a2 )  numd2a2,sum(nvimd2a3)  numd2a3  , 

(CRST  types  of  inspections:  indicators) 

sum (crstannual)  crstannual,  sum (crstreinsp)  crstreinsp, 
sum(crstadmin)  crstadmin,sum(crsthull)  crsthull, sum (crstcoc)  crstcoc, 
sum (crstconstr )  crstconstr, sum (crstcert)  crstcert, 
sum(crstinit)  erstinit , sum (crstmach)  crstmach, sum (erstdef )  erstdef, 
sum (erst other)  erstother , sum (erstrest )  erstrest 
from  inspect 
group  by  iritvkey, ye 
into  temp  inspect_Y; 


(Make  a  table  grouped  Just  by  iritvkey  for  vessel  characteristics) 

select  iritvkey 

from  vidtcrst 

group  by  iritvkey 

into  temp  justvkey; 

select  count (*)  num_justvkey  from  justvkey; 
select  justvkey. iritvkey, 

vidt. service  service,  vidt.flag  flag,  vidt.reg_gt  reg_gt, 
year (vidt.bld_dt)  yearbld,  vidt. route  route, 

(These  have  many  nulls  £md  are  used  only  for  model  of  inspection  if  adequate) 
vidt .dblside_typ,  vidt .dblbott_typ,  vidt .prop_typ,  vidt. design,  vidt .hull_roat 
from  justvkey,  vidt 
where 


justvkey.iritvkeysvidt.vkey  and 

( 

vidt.service=" FREIGHT  SHIP"  or  vidt .service="PUB.  TANKSHIP/ BARGE*  or 
vidt .services "TANK  SHIP’  or  ( (vidt .services "PASSENGER"  or 
vidt .services "PASSENGER  SHIP")  and  vidt .reg_gt>sl00) 

)  and 

vidt.flags-us’ 
into  temp  vesschar; 

select  count (*)  num_vesschar  from  vesschar; 


{II.  Here  we  compute  Duration,  and  get  rid  of  duplicate  values. 

We  Group  by  Month/Year  of  IRIT  inspection.  This  is  since  several  Level  II 
activities  may  be  grouped  in  a  bunch  but  on  several  different  days.  We 
would  like  to  count  this  bunch  only  once.  There  is  still  an  approximation 
since  bunch  may  overlap  between  two  months.  Can't  prevent  this  in  SQL 
Hence  we  do  two  data  sets: 

(i)  Group  by  Month/ Year,  as  described  above,  and 

(ii)  Group  by  just  Year.  This  is  a  smaller  data  set,  and  is  the  correct  one 
for  Level  II  activities  that  are  performed  over  1  or  2  years) 

{Note:  for  inspections  with  no  casualty,  duration= (1/1/95  -  iritdate) ) 

{Data  set  1:  Group  by  Month/ Year) 

select  iritvkey,  month (iritdate)  mo,  year ( iritdate)  ye, 

(cirtdate-iritdate)  dur_cas,  (’l/l/95"-iritdate)  dur_nocas 
from  pollinsp 
into  temp  durl; 

select  iritvkey,mo,ye,min(dur_cas)  mindur_cas,max(dur_nocas)  dur_nocas 
from  durl 

group  by  iritvkey,  mo, ye 
order  by  iritvkey , ye, mo 
into  temp  dur2; 

select  count (*)  all_rows_MY_l  from  dur2 ; 

select  *  from  dur2  where  mindur_cas  is  not  null  into  temp  junkl; 
select  count (*)  with_casualty_MY_l  from  junkl; 
drop  table  junkl; 

(Join  duration  and  inspection  tables) 
select  inspect_MY . * ,  mindur_cas,  dur_nocas, 

service  ,  flag,  reg_gt,  yearbld,  route, 
dblside_typ,  dblbott_typ,  prop_typ,  design,  hull_mat 
from  inspect_MY,  dur2 ,  vesschar 

where  inspect_MY.iritvkey=dur2. iritvkey  and 

inspect_MY . iritvkey=vesschar . iritvkey  and 
inspect_MY .mo=dur2 .mo  and 
inspect_MY .ye=dur2 .ye 
order  by  iritvkey , ye, mo 
into  temp  dur3 ; 

select  count (*)  all_rows_MY_2  from  dur3 ; 

select  ■*  from  dur3  where  mindur_cas  is  not  null  into  temp  junkl; 
select  count (•)  with_casualty_MY_2  from  junkl; 
drop  table  junkl; 

unload  to  •/nfs/ttd32/optical/50b/trix.dat/dur_2a3_my .pollall"  delimiter  ",’ 
select  * 
from  dur3 ; 

{Check  the  aggregation) 

select  count (*)  numrows,  sum(hull_hr)  tot_hull_hr,  sum(mach_hr) 


tot_inach_hr , 

sum  { adinin_hr )  tot_admin_hr 
from  dur3; 

select  count (*)  numrows,  sum(numd2al)  numd2al,sum(numd2a2)  numd2a2, 
sum  ( numd2a3 )  nvimd2a3 
from  dur3 ; 

drop  table  durl; 
drop  table  dur2; 
drop  table  dur3; 

{Data  set  2:  Group  by  just  Year) 

select  iritvkey,  month (iritdate)  mo.year (iritdate)  ye, 

(cirtdate-iritdate)  dur_cas,  (*l/l/95*-iritdate)  dur_nocas 
from  pollinsp 
into  temp  durl; 

select  iritvkey , ye, min (dur_cas)  roindur_cas,max(dur_nocas)  dur_nocas 
from  durl 

group  by  iritvkey, ye 
order  by  iritvkey, ye 
into  temp  dur2; 

select  count (*)  all_rows_Y_l  from  dur2; 

select  *  from  dur2  where  mindur_cas  is  not  null  into  temp  junkl; 
select  count (*)  with_casualty_Y_l  from  junkl; 
drop  table  junkl; 


(Join  duration  and  inspection  tables) 
select  inspect_Y.*,  mindur_cas,  dur_nocas, 

service  ,  flag,  reg_gt,  yearbld,  route, 
dblside_typ,  dblbott_typ,  prop_typ,  design,  hull_mat 
from  inspect_Y,  dur2,  vesschar 

where  inspect_Y . iritvkey=dur2 . iritvkey  and 

inspect_Y . iritvkey=vesschar . iritvkey  and 
inspect_Y . ye=dur 2 . ye 
order  by  iritvkey, ye 
into  temp  dur3 ; 

select  count (*)  all_rows_Y_2  from  dur3; 

select  *  from  dur3  where  mindur_cas  is  not  null  into  temp  junkl; 
select  count (*)  with_casualty_y_2  from  junkl; 
drop  table  junkl; 

unload  to  * /nf s/ttd32/optical/50b/trix.dat/dur_2a3_y .pollall"  delimiter 
select  * 
from  dur3 ; 

select  count  (■*)  numrows,  sum{hull_hr)  tot_hull_hr,  sum(mach_hr) 

tot_mach_hr, 

sum(admin_hr)  tot_admin_hr 
from  dur3 ; 

select  count  (*)  numrows,  sum(nvund2al)  numd2al,sum(niimd2a2)  numd2a2, 
sum(numd2a3)  numd2a3 
from  dur3 ; 

{print  this  out  for  var  names  to  an  output  file  since  need  also  to  print  for 
pollution  data  set) 

output  to  /users/gawande/dur_a3_poll.out 
select  * 
from  dur3 

where  reg_gt>l 00000; 


B-250 


DDR_B.SQL 

(PS  Cases} 

(Use  Peggy  Thurber's  mapping  for  Both  Level  II  and  Level  III  data  sets. 
This  is  different  from  the  MI  case,  where  IRIT's  major  activity 
indicators  were  used  to  select  Level  II. A  activities.  Since  II. B 
activities  are  differentiated  only  by  service,  we  use  Peggy's  mapping 
since  the  data  sets  will  be  disaggregated  by  service.  We  need  to 
construct  JUST  ONE  data  set  for  Level  II  activities, 
and  then  select  out  the  Bl,  B2,  and  B3  data  sets  in  Gauss.) 

(1.  Change  the  Unload  to  file  else  WILL  WRITE  OVER 
2.  Change  the  Output  To  files  else  WILL  WRITE  OVER  } 

(Only  post  1991  (incl)  inspections  since  duration  since  last  inspection  to 
casualty,  and  first  casualty  in  Minmod  is  02/91} 

{  Duration  data:  The  idea  is  as  follows:  See  the  MI  duration  programs 
dur_al  for  this  } 


(********* *******************H0URS  of 


INSPECTIONS************************ } 


select 

avst.vkey  avstvkey,  brit.act_dt  britdate, 

count {*)  numcases,sum(hr_reg)  reg_hr,sum(hr_res)  res_hr, 

sum {hr_boat )  boat_hr,  sum(hr_air)  air_hr, 

sum  (hr_regadmin)  admin_hr , sum (hr_regtvl )  travel_hr, 

sum(hr_other )  other_hr, 

sum(num_def)  avst_def , sum (num_act)  avst_act, 

(Level  II  and  III  Dummies  from  Mike  based  on  Peggy  Thurber's  mapping 
Here  only  II. B  activities  since  only  PS  activities} 
sum(d2bl)  numd2bl , sum (d2b2 )  numd2b2 , sum(d2b3 )  numd2b3, 

(Note  that  35,  36,  and  38  for  US  Flag  only  needed,  but  am  including  it  here) 
sum(d31)  numd31,  sum(d32)  numd32,  sum(d33)  numd33,  sum{d34)  numd34, 
sum(d35)  numd35,  sum(d36)  numd36,  sum(d37)  numd37,  sum(d38r  numd38, 
sum(d39)  nvimd3  9 
from  brst,  avst,  brit 


where 

{Level  II. B  activities  are  all  in  one  data  set.  Will  disagg  by  service 
in  Gauss  later) 

(brst.d2bl=l  or  brst.d2b2=l  or  brst.d2b3=l)  and 

(since  first  casualty  case  is  02/91  and  duration  is  from  last  inspec) 
brst .pscase [3 , 4 ] >=*91 “  and 
brst .pscase=avst .pscase  and 
brst .pscase=brit .pscase 

group  by  avst.vkey,  brit.act_dt 
into  temp  brst_tempO; 

select  count (*)  countbrst_tempO 
from  brst_tempO: 


(This  file  joins  BRST_TEMP0  (agg  hours  by  vkey)  to  VIDT  to  identify  the  foil: 
service,  flag,  reg_gt,  bld_yr,  route.) 


(drop  table  vidtbrst;) 


brst_tempO . * , 

vidt. service  vidtservice,  vidt.flag  vidtflag,  vidt.reg_gt  reg_gt, 
year (vidt.bld_dt)  yearbld,  vidt. route  route, 

{These  have  many  nulls  and  are  used  only  for  model  of  inspection  if  adequate) 
vidt.dblside_typ,  vidt.dblbott_typ,  vidt .prop_typ,  vidt. design,  vidt .hull_mat 
from  brst_tempO,  vidt 
where 

brst_tempO . avstvkey =vidt . vkey  and 
( 

(vidt.f lag=*US*  and  ( 

vidt. services 'FREIGHT  SHIP*  or  vidt .services 'PUB,  TANKSHIP/BARGE*  or 
vidt.services"TANK  SHIP*  or  ( (vidt. services 'PASSENGER"  or 
vidt. services "PASSENGER  SHIP")  and  vidt .reg_gt>sl00)  )  ) 
or 

(vidt.flag  not  in  ("US")  and  ( 

vidt .services "FREIGHT  SHIP"  or  vidt.services"PUB.  TANKSHIP/ BARGE"  or 
vidt .services "TANK  SHIP"  or  vidt .services'PASSENGER"  or 
vidt. services "PASSENGER  SHIP"  )  ) 

) 

into  temp  vidtbrst; 

select  count (*) 
from  vidtbrst ; 


{*************************  ***Pej.sonnel 


Casual ties ***•*•*****••••**•*****») 


{  Here,  casualty  data  is  assembled  from  CIVT  and  CIRT. 

CIRT,  and  CIVT  are  joined  by  (unique)  Mccase  and  select  out  only 
deep-draft  vessels  (hence  a  little  use  of  VIDT) .  Personnel  casualties  are 
constructed  from  CIRT  (which  has  no  vkey)  and  joined  to  CIVT  to  associate 
them  with  a  Vkey.  There  are  duplicate  Vkey  records  in  CIVT  (of  the  28,821 
records,  13,548  have  unique  Vkey),  so  we  need  to  choose  only  unique  records) 

{ 

drop  table  civt_dups; 
drop  table  civt_nodups; 
drop  table  cirt_civtO; 

) 

select 

civt .vkey  civtvkey, deaths , missing, injured, cirt . incident _dt  cirtdate 
from  cirt,  civt,  vidt 

(Note  that  in  CIVT,  the  vkey  is  not  unique  (in  VIDT  vkey  is  unique) .  Hence 
first  get  temp  table  civt_dups  (with  duplicates) .  Then  check  for  number 
of  duplicates  before  grouping  by  vkey) 
where 

cirt .mccase=civt .mccase  and 
civt . vkey=vidt .vkey  and 

(Jim  Law:  converstion  on  July  14,  1994.  The  following  query  contracts 
CIRT  to  cases  that  are  correct  (drop  mystery  and  inconsequential 
casualties).  ctf_ind=X  are  inconsequential  cases.  command_endorse  and 
command_cls  are  mutually  exclusive.  command_endorse=X  implies  that 
case  has  been  reviewed  and  fwd  to  dt/HQ  for  review.  command_cls=X  means  that 
case  is  done  and  does  not  require  review  at  dt/HQ.  coinmand_endorse=X  are 
legit  cases  and  all  should  be  considered.  Of  the  command_cls=X  cases,  only 
those  with  ctf_ind=null  should  be  considered  since  ctf_ind=X  implies  an 
inconsequential  case.  ) 

(cirt .command_endorse='X' 

or  (cirt .command_cls='X"  and  cirt.ctf_ind  is  null))  and 


{since  inspections  prograin  selects  correctly, 
so  that  don't  miss  out  anything  when  merge. 


here  select  larger  subset 
Passenger<100  also  selected) 


and 

TANKSHIP/BARGE' 


.deaths>0  or  cirt.missing>0  or  cirt.injured>0) 

(  Civt.service= -FREIGHT  SHIP-  or  civt. servicer -PUB 
or  civt .servicer -TANK  SHIP-  or 

civt. servicer -PASSENGER-  or  civt. servicer -PASSENGER  SHIP-) 
into  temp  Civt_dups;  ©nj.t'  ; 

select  count (*)  num_civtdups 
from  civt_dups; 


{This  set  of  statements  selects  non-duplicate  rows  in  civt  duo. 
by  Dust  civtvkey,  incident_dt,  get  almost  same  rows  as  this) 
select  *  from  civt_dups 

group  by  civtv)cey, cirtdate.  deaths, missing, injured 
into  temp  civt_nodups ; 
select  count (*)  num_civtnodups 
from  civt_nodups; 


If  group 


to  the  inspections  file.  Note  that  numdates  now 
gives  the  number  of  unique  incident  dates  associated  with  that  vessel) 
select  civtvkey,  cirtdate,  ^ 


sum(d6aths)  deaths, sum (missing)  missing, sum (injured)  injured 
from  civt_nodups 
group  by  civtvkey , cirtdate 
order  by  deaths  desc,  injured  desc 
into  temp  cirt_civtO; 


select  count (*)  num_cirtcivtO 
from  cirt_civtO; 

(drop  table  cirt_civtO ; ) 


(Here  we  do  the  last  part:  join  inspection  and  casualty  tables 
2  Personnel  casualty  files  (one  for  M/Y  and  one  for  just  Y))  ' 


and  Unload 


{ 


drop  table  persinsp; 
drop  table  inspect; 
drop  table  inspect_MY; 
drop  table  inspect_Y; 
drop  table  justvkey; 
drop  table  vesschar; 
drop  table  durl; 
drop  table  dur2; 
drop  table  dur3; 

} 


{I.  Join  hours  and  casualties. 

vidtbrst  sorted  by  avstvkey,britdate,  and  cirt.civtO  is  sorted  by  civtvkey 
cirtdate.  Hence  there  are  duplicate  vkeys  in  both  and  the  next  join 

?his'eSloKon“teLSs‘'“^'  cartesian  explosion,  but  this  is  ok  since  we  Need 

(i)  we  need  to  match  only  where  cirtdate>britdate,  and 

(ii)  we  need  to  compute  MIN  duration  among  the  cartesian  matches) 


{This  first  set  of  statements  for  making  persinsp  and  checkina) 
select  unique  vidtbrst.*,  cirt_civtO.* 
from  vidtbrst,  outer  cirt_civtO 
where  cirt_civt0.civtvk9y=vidtbrst .avstvkey  and 
cirt_civt  0 . cirtdate>=vidtbrst . britdate 
into  temp  persinsp; 


select  count (*)  niun_persinsp  from  persinsp; 

{Count  number  of  unique  (avstvkey.britdate)  in  persinsp) 
select  unique  avstvkey .britdate  from  persinsp  into  temp  junkO; 
select  count (*)  numunia  persinsp  from  junkO; 
drop  table  junkO; 

(Count  number  of  casualty  vkeys  that  Are  in  vidtbrst) 
select  count (*)  vidtbrst_keep  from  persinsp 
where  civtvkey  is  not  null; 


(This  is  to  make  the  inspections  by  M/Y  and  also  by  just  Y  to  join  with 
the  so  grouped  duration  data  below  for  the  complete  data  set) 

select  *,  month (britdate)  mo, year (britdate)  ye 
from  vidtbrst 
into  temp  inspect; 

{By  MY) 
select 

avstvkey,  mo,  ye, 

sum(numcases)  numcases , sum (reg_hr )  reg_hr,sum(res_hr)  res_hr, 
sum (boat _hr)  boat_hr,  sum(air_hr)  air_hr, 

sum(admin_hr )  admin_hr, sum(travel_hr)  travel_hr,  sum (other_hr )  other_hr, 
sum { avst_def )  avst_def , sum ( avst_act )  avst_act , 

{Level  II  and  III  Dummies  from  Mike  based  on  Peggy  Thurber's  mapping 
Here  only  II. B  activities  since  only  PS  activities) 
sum(numd2bl)  numd2bl , sum {numd2b2 )  numd2b2 , sum (numd2b3 )  nurod2b3 , 

{Note  that  35,  36,  and  38  for  US  Flag  only  needed,  but  am  including  it  here) 
sum(numd31)  numd31,  sum(numd32)  numd32,  sum(numd33)  numd33 , sum{numd34)  numd34, 
sum(numd35)  numd35,  sum(numd36)  numd36,  sum(numd37)  numd37 , sum(numd38)  numd38, 
sum(numd39)  numd39 
from  inspect 
group  by  avstvkey , mo, ye 
into  temp  inspect_MY; 

{By  Y) 
select 

avstvkey ,  ye , 

sum(numcases)  numcases , sum {reg_hr)  reg_hr,sum(res_hr)  res_hr, 
sum(boat_hr)  boat_hr,  sum(air_hr)  air_hr, 

sum(admin_hr)  admin_hr, sum (t rave l_hr)  travel_hr,  sum(other_hr)  other_hr, 
sum(avst_def )  avst_def ,  Siam  (avst_act )  avst_act, 

{Level  II  and  III  Dummies  from  Mike  based  on  Peggy  Thurber's  mapping 
Here  only  II. B  activities  since  only  PS  activities) 
siam(numd2bl)  numd2bl , sum (numd2b2 )  numd2b2,sum(numd2b3)  numd2b3 , 

{Note  that  35,  36,  and  38  for  US  Flag  only  needed,  but  am  including  it  here) 
sum(numd31)  numd31,  sum(numd32)  numd32,  sum(numd33)  numd33 , sum{numd34)  numd34, 
sum(numd35)  numd35,  sum(numd36)  numd36,  sum(numd37)  numd37 , sum{numd38)  numd38, 
sum(numd39)  numd39 
from  inspect 
group  by  avstvkey, ye 
into  temp  inspect_Y; 


{Make  a  table  grouped  Just  by  avstvkey  for  vessel  characteristics) 

select  avstvkey 

from  vidtbrst 

group  by  avstvkey 

into  temp  justvkey; 

select  count (*)  num_justvkey  from  justvkey; 


select 

just vkey . avstvkey , 

vidt. service  vidtservice,  vidt.flag  vidtflag,  vidt.reg_gt  reg_gt, 
year (vidt.bld_dt)  yearbld,  vidt. route  route, 

{These  have  many  nulls  and  are  used  only  for  model  of  inspection  if  adequate} 
vidt.dblside_typ,  vidt.dblbott_typ,  vidt .prop_typ,  vidt. design,  vidt.hull_mat 
from  justvkey,  vidt 
where 

j ust vkey . avstvkey=vidt . vkey  and 

( 

{vidt.flag=’US*  and  ( 

vidt. services ‘FREIGHT  SHIP"  or  vidt .services ‘PUB.  TANKSHIP/BARGE"  or 
vidt. services ‘TANK  SHIP"  or  ( (vidt .services "PASSENGER"  or 
vidt. services ‘PASSENGER  SHIP")  and  vidt .reg_gt>sl00)  )  ) 
or 

(vidt.flag  not  in  ("US")  and  ( 

vidt .services ‘FREIGHT  SHIP"  or  vidt .services ‘PUB.  TANKSHIP/BARGE"  or 
vidt .services ‘TANK  SHIP"  or  vidt .services‘PASSENGER‘  or 
vidt. services ‘PASSENGER  SHIP*  )  ) 

) 

into  temp  vesschar; 

select  count (*)  num_vesschar  from  vesschar; 


(The  following  comments  apply  to  Peggy's  mapping  for  Level  II  activities. 
We'll  find  out,  if  there  is  a  big  difference 
between  the  M/Y  and  the  just  Y  file  size) 

{II.  Here  we  compute  Duration,  and  get  rid  of  duplicate  values. 

We  Group  by  Month/Year  of  BRIT  inspection.  This  is  since  several  Level  II 
activities  may  be  grouped  in  a  bunch  but  on  several  different  days.  We 
would  like  to  count  this  bunch  only  once.  There  is  still  an  approximation 
since  bunch  may  overlap  between  two  months.  Can't  prevent  this  in  SQL 
Hence  we  do  two  data  sets: 

(i)  Group  by  Month/Year,  as  described  above,  and 

(ii)  Group  by  just  Year.  This  is  a  smaller  data  set,  and  is  the  correct  one 
for  Level  II  activities  that  are  performed  over  1  or  2  years) 

{Note:  for  inspections  with  no  casualty,  duration= (1/1/95  -  britdate) ) 

{Data  set  1:  Group  by  Month/ Year) 

select  avstvkey,  month (britdate)  mo,  year (britdate)  ye, 

(cirtdate-britdate)  dur_cas,  (■l/l/95"-britdate)  dur_nocas 
from  persinsp 
into  temp  durl; 

select  avs t vkey , mo , y e , min ( dur_cas )  mindur_cas ,max {dur_nocas )  dur_nocas 
from  durl 

group  by  avstvkey,  mo, ye 
order  by  avstvkey , ye , mo 
into  temp  dur2; 

select  count (*)  all_rows_MY_l  from  dur2; 

select  *  from  dur2  where  mindur_cas  is  not  null  into  temp  junkl; 
select  count (*)  with_casualty_MY_l  from  junkl; 
drop  table  junkl; 

{Join  duration  and  inspection  tables) 
select  inspect_My . * ,  mindur_cas,  dur_nocas, 

vidtservice,  vidtflag,  reg_gt,  yearbld,  route, 
dblside_typ,  dblbott_typ,  prop_typ,  design,  hull_mat 
from  inspect_MY,  dur2 ,  vesschar 

where  inspect_MY.avstvkey=dur2. avstvkey  and 


inspect_MY .avstvkey=vesschar .avstvkey  and 
inspect^MY .ino=dur2  .mo  and 
inspect_MY.ye=dur2 .ye 
order  by  avstvkey ,ye,mo 
into  temp  dur3; 

select  count (*)  all_rows_MY_2  fromdurS; 

select  *  from  dur3  where  mindur_cas  is  not  null  into  temp  junkl; 
select  count (*)  with_casualty_MY_2  from  junkl; 
drop  table  junkl; 

unload  to  ■/nfs/ttd32/optical/50b/trix.dat/dur_2b_my .pers"  delimiter 
select  ♦ 
from  dur3 ; 

select  sum (numcases )  numcases , sum (reg_hr )  tot_reg , sum {res_hr )  tot_res , 

sum(admin_hr )  tot_admin 
from  dur3 ; 

select  count (♦)  numrows,  sum(numd2bl)  numd2bl , sum (numd2b2 )  numd2b2, 
sum (numd2b3 )  numd2b3 
from  dur3; 


drop  table  durl; 
drop  table  dur2; 
drop  table  dur3; 

{Data  set  2;  Group  by  just  Year} 

select  avstvkey,  month (britdate)  mo,year (britdate)  ye, 

(cirtdate-britdate)  dur_cas,  ("1/1/95 "-britdate)  dur_nocas 
from  persinsp 
into  temp  durl; 

select  avstvkey,ye,min(dur_cas)  mindur.cas ,max (dur_nocas)  dur_nocas 
from  durl 

group  by  avstvkey,ye 
order  by  avstvkey,ye 
into  temp  dur2; 

select  count (*)  all_rows_Y_l  from  dur2; 

select  *  from  dur2  where  mindur_cas  is  not  null  into  temp  junkl; 
select  count (♦)  with_casualty_Y_l  from  junkl; 
drop  table  junkl; 


(Join  duration  and  inspection  tables) 
select  inspec t_Y . * ,  mindur_cas ,  dur_nocas , 

vidtservice,  vidtflag,  reg_gt,  yearbld,  route, 
dblside_typ,  dblbott_typ,  prop_typ,  design,  hull_roat 
from  inspect_Y,  dur2,  vesschar 

where  inspect_Y.avstvkey=:dur2 .avstvkey  and 

inspect_Y.avstvkey=vesschar .avstvkey  and 
inspec t_Y . y e=dur 2 . ye 
order  by  avstvkey,ye 
into  temp  dur3; 

select  count (♦)  all_rows_Y_2  from  dur3; 

select  *  from  dur3  where  mindur_cas  is  not  null  into  temp  junkl; 
select  count (*)  with_casualty_Y_2  from  junkl ; 
drop  table  junkl; 

unload  to  " /nf s/ttd32/optical/50b/trix.dat/dur„2b_y ,pers"  delimiter  "," 
select  * 
from  dur3 ; 


select  sum(nuincases)  nuiticases , sum ( reg_hr )  tot_reg,sum(res_hr)  tot_res, 

sum(admin_hr)  tot_admin 
from  dur3 ; 

select  count  (*)  numrows,  sum(numd2bl)  niimd2bl,sum(numd2b2)  numd2b2, 
sum ( numd2 b3 )  numd2 b3 
from  dur3 ; 

{print  this  out  for  var  neunes  to  an  output  file  since  need  also  to  print  for 
pollution  data  set} 

output  to  /users/gawande/dur_b_pers.out 
select  * 
from  dur3 

where  reg_gt>100000; 


{*******.*.*********.******.*PQl3^yt^Q^ 


Casualties************************ } 


(Be  sure  to  run  MIDURl  and  MIDUR2  before  these  two  progs) 


{  Here,  pollution  casualty  data  is  assembled  from  CIVT  and  CIRT. 

CIRT,  and  CIVT  are  joined  by  (unique)  Mccase  and  select  out  only 
deep-draft  vessels  (hence  a  little  use  of  VIDT) .  Pollution  incidents  are 
constructed  from  CIRT  (which  has  no  vkey)  and  joined  to  CIVT  to  associate 
them  with  a  Vkey.  There  are  duplicate  Vkey  records  in  CIVT  (of  the  28,821 
records,  13,548  have  unique  Vkey),  so  we  need  to  choose  only  unique  records) 


drop  table  civt_dups; 
drop  table  civt_nodups ; 
drop  table  cirt_civtO; 


select 

civt.vkey  civtvkey,  cirt . incident_dt  cirtdate 
from  cirt,  civt,  vidt 

(Note  that  using  VIDT  for  the  reg_gt>100  info  and  hence  need  Unique  in  select 
statement  since  in  CIVT,  the  vkey  is  not  unique  (in  VIDT  vkey  is  unique)} 
where 

cirt .mccasescivt .mccase  and 

civt .vkey=vidt .vkey  and 

{Jim  Law:  converstion  on  July  14,  1994.  The  following  query  contracts 
CIRT  to  cases  that  are  correct  (drop  mystery  and  inconsequential 
casualties).  ctf_ind=X  are  inconsequential  cases.  command_endorse  and 
command_cls  are  mutually  exclusive.  command_endorse=X  implies  that 
case  has  been  reviewed  and  fwd  to  dt/HQ  for  review.  coromand_cls=X  means  that 
case  is  done  and  does  not  require  review  at  dt/HQ.  command_endorse=X  are 
legit  cases  and  all  should  be  considered.  Of  the  command_cls=X  cases,  only 
those  with  ctf_ind=null  should  be  considered  since  ctf_indsX  implies  an 
inconsequential  case.  } 

{Jim  Law:  converstion  on  July  14,  1994.  The  following  query  contracts 
CIRT  to  cases  that  are  correct  (drop  mystery  and  inconsequential 
casualties).  ctf_ind=X  are  inconsequential  cases,  command. endorse  and 
command_cls  are  mutually  exclusive.  command_endorse=X  implies  that 
case  has  been  reviewed  and  fwd  to  dt/HQ  for  review.  command_cls=X  means  that 
case  is  done  and  does  not  require  review  at  dt/HQ.  coinmand_endorse=X  are 
legit  cases  and  all  should  be  considered.  Of  the  command_cls=X  cases,  only 
those  with  ctf_ind=null  should  be  considered  since  ctf_ind=X  implies  an 
inconsequential  case.  ) 


(cirt  .coiranand^endorses^X** 

or  (cirt .coininand_cls="X"  and  cirt.ctf_ind  is  null))  and 
cirt  .incpd_ind>=:l  and 

(cirt .pol^inds^X"  or  pri_nature="POLLUTION“ )  and 

{To  select  Only  BAD  cases,  unblock  this  statement) 

{severity  in  ( "MAJOR- ,  •POTENT'* , -MEDIUM* )  and) 

{  civt. services -FREIGHT  SHIP"  or  civt. services -PUB.  TANKSHIP/BARGE- 
or  civt. services -tank  SHIP-  or 

( (civt. services •passenger-  or  civt .services "PASSENGER  SHIP")  and 
vidt . reg_gt >s l o 0 )  ) 
into  temp  civt_dups; 
select  count { * )  num^civtdups 
from  civt_dups; 

{This  set  of  statements  selects  non-duplicate  rows  in  civt_dup.  Although 
this  is  an  approximation  of  duplicates,  its  not  a  bad  one.  Can't  really 
check  for  the  pollution  cases  since  mostly  number  of  cases  is  1) 
select  *  from  civt_dups 
group  by  civtvkey , cirtdate 
into  temp  civt_nodups; 
select  count ( * )  num_civtnodups 
from  civt_nodups; 

(group  by  vkey  to  attach  to  the  inspections  file.  Note  that  poll_incids  now 
gives  the  number  of  unique  incident  dates  associated  with  that  vessel  on 
a  cirtdate,  and  hence  is  probably  always  equal  to  1. 

Actually  poll_incids  is  superfluous  and  never  used  in  the  duration  file  anyway) 

select  civtvkey,  cirtdate,  count (*)  poll_incids 

from  civt_nodups 

group  by  civtvkey,  cirtdate 

order  by  poll_incids  desc 

into  temp  cirt_civtO; 

select  count (^)  num_cirtcivtO 
from  cirt_civtO; 

(drop  table  cirt_civtO;) 


(Here  we  do  the  last  part:  join  inspection  and  casualty  tables,  and  Unload 
2  Pollution  casualty  files  (one  for  M/Y  and  one  for  just  Y)) 

drop  table  inspect; 
drop  table  inspect_MY; 
drop  table  inspect_Y; 
drop  table  justvkey; 
drop  table  vesschar; 
drop  table  durl; 
drop  table  dur2; 
drop  table  dur3; 

{I.  Join  hours  and  casualties. 

vidtbrst  sorted  by  avstvkey,britdat€,  and  cirt_civtO  is  sorted  by  civtvkey, 
cirtdate.  Hence  there  are  duplicate  vkeys  in  both  and  the  next  join 
statement  produces  a  small  cartesian  explosion,  but  this  is  ok  since  we  Need 
this  explosion  because 

(i)  we  need  to  match  only  where  cirtdate>britdate,  and 

(ii)  we  need  to  compute  MIN  duration  among  the  cartesian  matches) 


{This  first  set  of  statements  for  making  pollinsp  and  checking) 
select  unique  vidtbrst.*,  cirt_civtO.* 
from  vidtbrst,  outer  cirt_civtO 
where  cirt_civtO .civtvkey=vidtbrst .avstvkey  and 
cirt_civt0.cirtdate>=vidtbrst.britdate 
into  temp  pollinsp; 

select  count  (*)  nuir\_pollinsp  from  pollinsp; 

(Count  number  of  unique  (avstvkey .britdate)  in  pollinsp) 
select  unique  avstvkey .britdate  from  pollinsp  into  temp  junkO; 
select  count (*)  nvununiq_pollinsp  from  junkO; 
drop  table  junkO; 

(Count  number  of  casualty  vkeys  that  Are  in  vidtbrst) 
select  count (*)  vidtbrst_keep  from  pollinsp 
where  civtvkey  is  not  null; 


(This  is  to  make  the  inspections  by  M/Y  and  also  by  just  Y  to  join  with 
the  so  grouped  duration  data  below  for  the  complete  data  set) 

select  *,  month (britdate)  mo, year (britdate)  ye 
from  vidtbrst 
into  temp  inspect; 

(By  MY) 
select 

avstvkey,  mo,  ye, 

sum(numcases)  numcases, suro(reg_hr)  reg_hr , sum (reE_hr )  res_hr, 
sum(boat_hr)  boat_hr,  sum(air_hr)  air_hr, 

sum(admin_hr )  admin_hr, sum (t rave l_hr)  travel_hr,  sum(other_hr)  other_hr, 
sum(avst_def )  avst_def , sum (avst_act )  avst_act, 

(Lev^el  II  and  III  Dummies  from  Mike  based  on  Peggy  Thurber's  mapping 
Here  only  II. B  activities  since  only  PS  activities) 
sum(numd2bl)  numd2bl , sum(numd2b2)  numd2b2,sum(numd2b3)  numd2b3 , 

(Note  that  35,  36,  and  38  for  US  Flag  only  needed,  but  am  including  it  here) 
sum(numd31)  numd31,  sum(numd32)  numd32,  sum(numd33)  numd33 , sum (numd34 )  numd34, 
sum(nvimd35)  numd35,  sum(numd36)  numd36,  sum(numd37)  numd37 ,  svim(numd38)  numd38, 
sum(numd39)  numd39 
from  inspect 
group  by  avstvkey, mo, ye 
into  temp  inspect_My; 

(By  Y) 
select 

avstvkey,  ye, 

sum  (numcases)  numcases,  svim(reg_hr)  reg_hr ,  sum  (res_hr)  res_hr, 
sum(boat_hr)  boat_hr,  sum(air_hri  air_hr, 

sum(admin_hr)  admin_hr, sum (travel_hr)  travel_hr,  sum(other_hr)  other_hr, 
sum (avst_def )  avst_def , sum (avst_act )  avst_act, 

(Level  II  and  III  Dummies  from  Mike  based  on  Peggy  Thurber's  mapping 
Here  only  II. B  activities  since  only  PS  activities) 
sum(numd2bl)  numd2bl,sum(numd2b2)  numd2b2,sum(numd2b3)  numd2b3 , 

(Note  that  35,  36,  and  38  for  US  Flag  only  needed,  but  am  including  it  here) 
sum(numd31)  numd31,  sum(numd32)  numd32,  sum(numd33)  numd33 , sum(niamd34)  numd34, 
sum(numd35)  numd35,  sum{numd36)  numd36,  sum(numd37)  numd37 , sum(numd38)  numd38, 
sum(numd39)  numd39 
from  inspect 
group  by  avstvkey, ye 
into  temp  inspect_Y; 


(Make  a  table  grouped  Just  by  avstvkey  for  vessel  characteristics) 


select  avstvkey 
from  vidtbrst 
group  by  avstvkey 
into  temp  justvkey; 

select  count (*)  num_justvkey  from  justvkey; 
select 

justvkey .avstvkey, 

vidt. service  vidtservice,  vidt.flag  vidtflag,  vidt.reg_gt  reg_gt, 
year (vidt.bld_dt)  yearbld,  vidt. route  route, 

(These  have  many  nulls  and  are  used  only  for  model  of  inspection  if  adequate) 
vidt.dblside_typ,  vidt.dblbott_typ,  vidt .prop_typ,  vidt, design,  vidt ,hull_mat 
from  justvkey,  vidt 
where 

justvkey .avstvkey=vidt.vkey  and 
( 

(vidt.flag=*US'  and  ( 

vidt. services "FREIGHT  SHIP"  or  vidt .service* "PUB.  TANKSHI P/BARGE*  or 
vidt .service* "TANK  SHIP"  or  ( (vidt .service* "PASSENGER*  or 
vidt. service* "PASSENGER  SHIP")  and  vidt .reg_gt>=100)  )  ) 

or 

(vidt.flag  not  in  ("US")  and  ( 

vidt .service* "FREIGHT  SHIP*  or  vidt .service* "PUB.  TANKSHIP/BARGE"  or 
vidt. service* "TANK  SHIP"  or  vidt . service="PASSENGER"  or 
vidt  .service* *PASSE.\’GER  SHIP*  )  ) 

) 

into  temp  vesschar; 

select  count (*)  num_vesschar  from  vesschar; 


{II.  Here  we  compute  Duration,  and  get  rid  of  duplicate  values. 

We  Group  by  Month/Year  of  BRIT  inspection.  This  is  since  several  Level  II 
activities  may  be  grouped  in  a  bunch  but  on  several  different  days.  We 
would  like  to  count  this  bunch  only  once.  There  is  still  an  approximation 
since  bunch  may  overlap  between  two  months.  Can't  prevent  this  in  SQL 
Hence  we  do  two  data  sets: 

(i)  Group  by  Month/ Year,  as  described  above,  and 

(ii)  Group  by  just  Year.  This  is  a  smaller  dataset,  and  is  the  correct  one 
for  Level  II  activities  that  are  performed  over  1  or  2  years) 

(Note:  for  inspections  with  no  casualty,  duration* (1/1/95  -  britdate) ) 

(Data  set  1:  Group  by  Month/Year) 

select  avstvkey,  month (britdate)  mo,  year (britdate)  ye, 

(cirtdate-britdate)  dur_cas,  ( *l/l/95"-britdate)  dur_nocas 
from  pollinsp 
into  temp  durl; 

select  avstvkey,mo,ye,min(dur_cas)  mindur_cas ,max(dur_nocas)  dur_nocas 
from  durl 

group  by  avstvkey,  mo, ye 
order  by  avstvkey , ye, mo 
into  temp  dur2; 

select  count (*)  all_rows_MY_l  from  dur2; 

select  *  from  dur2  where  mindur_cas  is  not  null  into  temp  junkl; 
select  count (*)  with_casualty_MY_l  from  junkl; 
drop  table  junkl; 

{Join  duration  and  inspection  tables) 
select  inspect_My. *,  mindur_cas,  dur_nocas, 

vidtservice,  vidtflag,  reg_gt,  yearbld,  route. 


# 


dblside_typ,  dblbott_typ,  prop_typ,  design,  hull_inat 
frcam  inspect_MY,  dur2,  vesschar 
where  inspect_MY.avstvkey=dur2.avstvkey  and 

inspect_MY .avstvkeysvesschar .avstvkey  imd 
inspect_My  .ino=dur2  .mo  and 
inspect_MY .ye=dur2 .ye 
order  by  avstvkey, ye, mo 
into  temp  dur3 ; 

select  count (*)  all_rows_MY_2  from  dur3; 

select  *  from  dur3  where  mindur_cas  is  not  null  into  temp  junkl; 
select  count (*)  with_casualty_MY_2  from  junkl; 
drop  table  junkl  ,- 

unload  to  ‘/nf s/ttd32/optical/50b/trix.dat/dur_2b_my .pollall*  delimiter  •, 
select  • 
from  dur3; 

{Check  the  aggregation) 

select  sum(numcases)  numcases,svun(reg_hr)  tot_reg , sum ( res_hr )  tot  res 

sum(admin_hr)  tot_admin 
from  dur3 ; 

select  count (*)  numrows,  sum(numd2bl)  numd2bl , sum (numd2b2 )  numd2b2, 
sum{numd2b3)  numd2b3 
from  dur3 ; 

drop  table  durl; 
drop  table  dur2; 
drop  table  dur3 ; 

(Data  set  2:  Group  by  just  Year) 

select  avstvkey,  month (britdate)  mo,year (britdate)  ye, 

(cirtdate-britdate)  dur_cas,  ( "l/l/SS’-brltdate)  dur_nocas 
from  pollinsp 
into  temp  durl  ,- 

select  avstvkey,ye,min(dur_cas)  mindur_cas,max(dur_nocas)  durnocas 
from  durl 

group  by  avstvkey, ye 
order  by  avstvkey, ye 
into  temp  dur2; 

select  count (*)  all_rows_Y_l  from  dur2; 

select  *  from  dur2  where  mindur_cas  is  not  null  into  temp  junkl; 
select  count (•)  with_casualty_Y_l  from  junkl; 
drop  table  junkl; 


(Join  duration  and  inspection  tables) 
select  inspect_Y.*,  mindur_cas,  dur_nocas, 

vidtservice,  vidtflag,  reg_gt,  yearbld,  route, 
dblEide_typ,  dblbott_typ,  prop_typ,  design,  hull_mat 
from  inspect_Y,  dur2,  vesschar 
where  inspect_Y.avstvkey=dur 2 .avstvkey  and 

inspect_y . avstvkey =vesschar. avstvkey  and 
inspect_Y . y e=dur 2 . ye 
order  by  avstvkey, ye 
into  temp  dur3 ; 

select  count (*)  all_rows_y_2  from  dur3 ; 

select  *  from  dur3  where  mindur_cas  is  not  null  into  temp  junkl; 
select  count  (*)  with_ca£-ualty_Y_2  from  junkl; 
drop  table  junkl; 
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unload  to  •/nfs/ttd32/optical/50b/trix.dat/dur_2b_y.pollall"  delimiter  *,• 
select  * 
from  dur3; 

select  sum(numcases)  numcases,sum(reg_hr)  tot_reg,sum(res_hr)  tot_res, 

sum{admin_hr )  tot_admin 
from  dur3 ; 

select  count (*)  nurorows,  sum(numd2bl)  numd2bl , sum (numd2b2 )  numd2b2, 
sum ( numd2b3 )  numd2b3 
from  dur3; 

{print  this  out  for  var  names  to  an  output  file  since  need  also  to  print  for 
pollution  data  set) 

output  to  /users /gawande/dur_b_poll .out 
select  * 
from  dur3 

where  reg_gt>100000; 


Appendix  C:  Mapping  Of  CASMAIN  and  MINMOD  Casualty  Casual  Keywords  to  Level 

III  Intervention  Activities 


Casualty  casual  information  in  the  CASMAIN  and  MINMOD  portions  of  MSMS  are  grouped  by 
Level  ni  Inspection  and  Boarding  activities  to  provide  a  basis  for  calculating  the  importance  of 
the  Level  HI  activities  in  the  risk  based  ranking  method  for  Level  HI  MOEs.  Discussions  with 
USCG  Marine  Investigation  personnel  indicate  that  there  is  a  substantial  difference  in  the  manner 
in  which  casualty  casual  information  is  recorded  between  CASMAIN  and  MSMS.  CASMAIN 
contains  90  keywords  under  the  element  name  NATURE  OF  CASUALTY.  There  are  108 
keywords  under  the  element  name  CAUSE  OF  CASUALTY.  MINMOD  has  only  16  keywords 
under  the  element  name  TYPE  that  are  analogous  to  the  NATURE  and  CAUSE  keywords  of 
CASMAIN.  Marine  Investigation  Personnel  advised  that  the  information  stored  in  such  tables 
as  the  Casualty  Casual  Factor  Record  (CCFT),  Casualty  Collision  and  Grounding  Record  Table, 
Casualty  Fire  and  Explosion  Record  (CFET),  Casualty  Flood  and  Capsizing  Record  (CFCT),  and 
the  Casualty  Structural  Failure  Record  (CSFT)  was  not  analogous  to  the  NATURE  and  CAUSE 
data  in  CASMAIN. 

The  structure  of  CASMAIN  is  such  that  a  NATURE  keyword  can  have  up  to  three  CAUSE 
keywords  linked  to  it.  The  information  at  both  levels  is  useful  in  linking  casualty  data  to  specific 
Level  ni  inspection  activities.  However,  many  of  the  keywords  could  not  be  linked  to  the  Level 
III  activities.  Of  the  90  keywords  under  NATURE,  58  could  be  identified  as  relevant  to  the 
Level  ni  activities.  For  the  CAUSE  keywords,  only  3  out  of  108  could  be  identified  as  useful. 
The  results  for  the  CASMAIN  keywords  are  summarized  below. 


Level  III  Inspection/Boarding  Activity  Number  Of  Relevant  CASMAIN  NATURE 

and  CAUSE  Keywords 


1)  Cargo/Poll.  Handling/Pollution 
Control 

2)  Steering/Navigation 

3)  Document/Paperwork 

4)  Drills/Human  Factors 

5)  Auxiliary  Systems  (U.S.  Flag  Only) 

6)  Power  Plant  (U.S.  Flag  Only) 

7)  Fire  Fighting  And  Prevention 


2 

6 

1 

2 

5 

17 

25 


8)  Hull  (U.S.  Flag  Only)  2 

9)  Life  Saving  1 


The  MINMOD  TYPE  keywords  in  CERT  where  match  to  the  Level  III  inspection  activities 
follows; 

Level  ni  Inspection/Boarding  Activity  Casualty  Event  Record  Table  Type 

Keyword 


1) 

Cargo/Poll.  Handling/Pollution 

Control 

POLLUTION 

ALLISION 

2) 

Steering/Navigation 

GROUNDING  ACC 
LOSS  VES  CNTRL 

No  Keyword  Identified 

3) 

Document/Paperwork 

PERSONNEL  CAS 

4) 

Drills/Human  Factors 

No  Keyword  Identified 

5) 

Auxiliary  Systems  (U.S.  Flag  Only) 

LOSS  ELEC  POWER 

6) 

Power  Plant  (U.S.  Flag  Only) 

FIRE 

7) 

Fire  Fighting  And  Prevention 

SINK 

8) 

Hull  (U.S.  Flag  Only) 

FLOODING 
STRUCTURAL  FAIL 

No  Keyword  Identified 

9) 

Life  Saving 

as 


As  shown  above,  three  Level  III  inspection/boarding  activities  are  not  matched  to  any  of  the 
CERT  TYPE  keywords.  Three  of  the  16  keywords  were  not  matched  to  any  inspection^oarding 
activity;  REMOVED,  LEFT  BLANK,  and  ABANDONMENT. 


Appendix  D:  Mapping  from  CRST/BRST  Inspection  Types  into  Level  II  and  Level  HI 

Activities 


Note: 

1.  For  many  inspection  types,  the  mapping  is  one-to-many. 

2.  A.x.y  denotes  that  the  inspection  type  maps  into  Level  11  activity  A.x,  and  Level  HI 
activity  y.  SimUarly  for  B.x.y.  Where  there  is  no  Level  HI  activity  indicator,  e.g.  A.x, 
this  implies  that  all  9  Level  HI  activities  map  into  that  inspection  type.  In  the  absence 
of  any  other  information,  we  attribute  1/9  of  the  total  hours  to  each  Level  HI  activity. 
Hours  are  similarly  equally  proportioned  wherever  there  is  a  one-to-many  mapping  into 
Level  in  activities.  Inspection  types  for  which  there  is  no  activity  listed  are  not  mapped 
at  all.  See  Section  I  for  definition  of  Level  n  and  Level  III  activities. 

3.  Number  in  parenthesis  indicates  the  number  of  records  in  CRST  (both  MI  and  PS  cases) 
containing  that  inspection  type. 

4.  This  mapping  is  used  for  Duration  analysis  of  Level  II.B  activities  and  the  Poisson 
analysis  of  Level  HI  activities  (U.S.  flag  only).  For  Level  II.A  activities,  indicators  in 
IRIT  are  used  to  select  relevant  inspections. 


Inspection  Tvpe 

Level 

II  and  III 

Activities 

OTHER  (81267) 

NAT.  Cargo /Poll.  BUREAU  (2035) 

ANNUAL  EXAMINATION  (39232) 

B.l,  B.2,  B.3 

POLL  PREV  (50316) 

A. 1.1, 

A.2.1; 

B.1.1,  B.2.1, 

B.3 . 1 

LOADLINE  (17773) 

A. 1.8, 

A. 2. 8,  A.3 . 

8;B.l. (3,8) ,B. 

2. (3,8) , B.3. (3,8) 

PASS  FRGT  (12733) 

B.l 

NAV  SAFETY  (46235) 

A. 1.2, 

A. 2 .2, 

B.l. 2,  B.2. 2, 

B.3 .2 

REINSPECTION  (38653) 

A. 2 

MARPOL  REQ  (30123) 

A. 1.1, 

A.2.1; 

B.l.y,  B.2.y, 

B.3.y,  y=l-4,7 

Cargo/Poll.  MON  (34409) 

ADMIN  (78209) 

A.l,  A 

.2,  A.3; 

B.  1  .y  B. 2 .y , 

B.3.y,  y=l-4,7,9 

MONITOR  Cargo/Poll.  (52630) 

Cargo/Poll.  VENT  (12720) 

A. 1.1, 

A.2.1,  A.3 

.8;B.2.1 

Cargo/Poll.  SUP  (2108) 

Cargo/Poll.  HAND  (139) 

MANNING  (16424) 

A. 1.3, 

A. 2. 3 

B.l. 3,  B.2. 3, 

B.3 .3 

Cargo/Poll.  PIPE  (10915) 

A. 1.1, 

A.2.1, 

B.1.1,  B.2.1 

FIRE  PROT  (31984) 

A. 1.7, 

A. 2. 7; 

B.l. 7,  B.2. 7, 

B.3 .7 

SIV  BOARDING  (4092) 

HULL  EXAM  (37023) 

A. 3 

TANK  VESS  (8062) 

B.2 

DISCREPANCY  FOLLOWUP  (8939) 

B.l.y,  B.2.y, 

B.3.y,  y=l-4,7,9 

DD  EXTEND  (2821) 

A. 3. 8 

COC  (9379) 

B.2 

Cargo/Poll.  SUPERVISION  (27 

12) 

CONTROL  VERIF  (1448) 

B.3 

SOL  TRANS  (1630) 

PERM- PROCEED  (891) 

BREAK  BULK  (1682) 
DEFICIENCY  CK  (33238) 

MOVE  CONT  (711) 

OCEAN  DUMP  (78) 

A.l,  A 

.2,  A. 3 

. (3,8) 

CERTIFICATION  (44631) 

A.l 

LIQ  TRANS  (92) 

LIFERAFT  SVC  (21374) 

UNINSP  OTHER  (266) 

UNINSP  VES  (3409) 

A. 1.9, 

A. 2. 9 

INVESTIGATION  (7106) 

IGS  (1111) 

A. 1.1, 

A.2.1 

B.2.1 

MARPOL  EQU  (164) 

A. 1.1, 

A.2.1, 

B.l. (1,3),B.2. (1,3) ,B.3. (1,3) 

MARPOLII  SURV  (2164) 

A. 1.1, 

A.2.1 

B.2.1 

REPAIRS  (6443) 

MARPOL  (573) 

B.2 

MARPOL  DIS  (394) 

REC  BOAT  SAF  (9648) 

B.1.1,  B.2.1,  B.3.1 

(42364) 

DAMAGE  SURVEY  (5470) 

A. 3. 8 

INITIAL  CERT  (3003) 

A.l 

L/S  SVC  OTHER  (2823) 

A. 1.9, 

A.2 .9 

MACHINERY  (617) 

A.l.y, 

A.2 .y. 

A. 3. 5,  y=l,2,5-7 

PERS-IN-ADD  (19) 
CONSTRUCTION  (1063) 

EXCURS  PERMIT  (529) 

WELDER  QUAL  (847) 

UNINSP  FISHG  (6654) 

PLANREV  TBOAT  (1595) 

A. 1.8, 

A.3 .8 

OVERSIGHT  (239) 

POLLUTION  INVEST  (41763) 
CASUALTY  INVEST  (41763) 
TRAVEL  (45258) 

TRAINING  (45258) 

A.l 

MARPOLII  TEST  (18) 

MON  BARGE  OIL  (8354) 

DRY  BULK  INSP  (587) 

ANNUAL  (9240) 

A.2.1; 

B.1.1,  B.2.1,  B.3.1 

PUMP  ROOM  (722) 

A.l.  (1 

,5),  A. 

2. (1,5) ,  A.3.8 

CONSTRUCT  0/S  (50) 

A. 1.8 

OP  MAN  REVIEW  (4531) 

A. 1.1, 

A.2.1; 

B.1.1,  B.2.1 

ANNUAL  CONTAI  (436) 

B.l 

MARPOL  II  (193) 

B.l. (1,3) , B.2. (1,3) ,B. 3. (1,3) 

ANNUAL  FREIGH  (9031) 

UNINSP  TOWING  (44) 

B.l 

NLS  SURVEY  (171) 

A.l,  A 

.2; 

B.2 

MARPOL  V  (9215) 

HARBOR  N-TARG  (6562) 

OTHER  GOVT  (26) 

A. A.l, 

A.2.1; 

B.l. (1-3) , B.2. (1-3) ,B. 3 . (1-3) 

HARBOR  TARGET  (14045) 
EQUIP  MAINTE  (7679) 

MSIS  DATA  ENT  (15684) 

REQD  CG  TRAIN  (4394) 

INCL  EXP  (511) 

LIFE  JACKET  (15) 

ENFORCE  L  &  T  (528) 
SECURITY  BOARDING  (30) 

INV  NEC  (5545) 

HOT  WORKS  ANN  (1463) 
HOTLINE  (7) 

SPOT  CHECK  (460) 

LIQ  BULK  INSP  (5860) 
MARPOL  GEN  (3762) 
REFLAGGING  (37) 

MARPOLII  PR  (6) 

VSL  MOVE  CTRL  (4505) 

PROG  SUPPORT  (3964) 

ORG.  PROJECTS  (3910) 

UNIT  ADMIN  (15039) 

PROG  TRAINING  (3847) 
DOCUMENT  CHEC  (8565) 
FIREFIGHTING  (1997) 

COW  (204) 

PERS  EVALS  (3405) 

PUBLIC  RELATE  (4012) 

OCC  SAFETY  (2253) 

INDUST  COORD  (2892) 

PUBLIC  MEET  (2047) 

GENERAL  CORRS  (5052) 

WS  SYS  MAINTE  (3505) 
SEM/CONF  (1998) 
WATCH-OFFICE  (9887) 

WATCH  ON  CALL  (10388) 

MON  PK  HAZMAT  (1286) 

CG  VESSEL /EQP  (2) 

TRN  FORMAL  (5076) 

ANNUAL  SHIP  (1662) 

LIAISON  (3054) 

MON  BARGE  DC  (2466) 

TRAIN  ON  JOB  (8010) 

MON  SHIP  OIL  (2961) 
MILITARY  EXPL  (471) 

POL  PREV  EQP  (7057) 
SANITARY  INSP  (32) 

DWT  SURVEY  (95) 

INV  UNUSUAL  (1289) 

MON  HAZ  GAS  (657) 

REGATTA/ P ARAD  (566) 

D  Cargo/ Poll.  PERMI  (263) 


A. 1.8 

A. 1.9,  A.2.9; 


A.l 


A. 1.7,  A.2.7; 
A. 1.1,  A. 2.1; 


A. 1.1,  A.2.1; 
A. 1.5,  A. 2. 5 
A. 1.8 


B.1.9,  B.2.9,  B.3.9 


B.l. (1-3) ,B.2. (1-3) ,B.3 . (1-3) 


B.1.3,  B.2.3,  B.3.3 
B.l. 7,  B.2.7,  B.3.7 
B.2.1 


B.1.1,  B.2.1,  B.3.1 


B.l.y,  B.2.y,  B.3.y,  y=l-4,7,9 


DISCREP  FLWUP  (3989) 

MON  NEC  OPS  (8142) 

SAR  ACTIVITY  (246) 
LESSON  PREP  (2618) 

FIRE  PROTECTN  (10) 
ANNUAL  FREIGH  ON  (7) 
SURVEILLANCE  (353) 
CONTIN  DRILL  (1021) 
DISCREP  FLWUP  OWUP  (1) 
PERS  ACTIONS  (3263) 

AUX  SUPPORT  (997) 

FOIA  REQUESTS  (1755) 
AMVER  (4120) 

AIDS  TO  NAV  (325) 

SAFETY  EQ  MAI  (1343) 

COTP  ORDERS  (1385) 

FIELD  REGS  (1019) 
COMMERCI  EXPL  (1118) 

SIV  SURVEIL  (54) 

RESPONSE  PLAN  (1180) 
OCEAN  DUMPING  (94) 

SAFETY  ZONE  (1175) 

REC  BOAT  SAFE  (1187) 

MON  SHIP  DC  (724) 

BRIDGE  ADMIN  (280) 

FIRE  ASS I STAN  (64) 

OTH  CG  VSL  HR  (664) 

HOT  WORKS  TEM  (425) 

EST  SAFETY  ZO  (947) 
MARPOL  I  (1212) 

LIQ  BULK  SURV  (560) 

ADMIN  ORDER  (398) 

CONTIN  PLAN  (2954) 
MOBILIZ  EXER  (293) 
MOBILIZ  PLAN  (606) 

ANNUAL  PASSEN  (109) 

VSL  ESCORTS  (225) 

CREW  Lie.  CHK  (3629) 
CONTAIN  INSP  (1054) 

COA  MARPOL  I  (713) 

COA  MARPOL  V  (779) 

PACK  HAZMAT  (572) 

DRY  BULK  SURV  (135) 

HOT  WORKS  DAY  (292) 

MON  OFFSHOR  L  (20) 

PORT  SEC  CARD  (54) 

EST  SEC  ZONE  (186) 

MON  BLAST/OX  (130) 
SECURITY  ZONE  (340) 

MON  INSHORE  L  (45) 


A. 1.7,  A. 2. 7,  A.3 .7;B.1.7,  B.2.7,  B.3.7 
B.l 


B.1.(1,3),B.2.(1,3),B.3.(1,3) 


B.3 


A. 1.3,  A. 2. 3,  B.l. 3,  B.2.3,  B.3. 3 


INV  BARGE  (61) 
RESEARCH  (3495) 
HEARING  (3495) 

PK  HAZMAT  SUR  (40) 
COA  MARPOL  II  (102) 
ANNUAL  BARGE  (22) 
RADIOACTIVE  (12) 
PASSENGER  SUR  (19) 
COMPLAINT  BRG  (1) 
BLST  WTR  EXAM  (14) 


APPENDIX  E:  A  Goal  Programming  Formulation  for  Resource  Allocation  Using  MOEs 


Let  Xjjk  be  person  hours  of  resource  type  i€l  for  MSOj  in  time  period  k,  then  constraints  on 
resource  at  MSOj  are 

Z  L  available  resources 

i  j  k  '' 

YiY^jk  ^  available  resources  of  type  I  ,  and 


K  i  ZZ^,*  ^  si  ,  where 

i  k 

si  ,  si  are  the  upper  and  lower  bounds  on  resources  at  MSOj. 

The  foregoing  formalizes  the  "supply"  or  resources. 

Let  be  the  demand  for  activities  (e.g.,  inspectors)  type  T  at  MSOj  in  time  period  k  (based 
upon  traffic,  USCG  regulations  and  recommended  procedures),  and  can  be  converted  into 
number  of  persons  for  type  i  resources.  We  now  need  to  bundle  Xjj^  in  type  T  activities  to 
meet  demand  by  MSO  and  time  period  (for  example,  winter  on  the  East  Coast  may  require 
different  resources  than  the  other  seasons)  as  follows. 

where  is  the  bundle  of  person  hours  of  resource  i’s  needed  for  an  activity  T 

(such  as  a  hull  inspector  )  at  MSOj  for  time  period  k.  Note  that  this  formulation  assumes 
are  continuous  variables  >  0;  appropriate  integer  (0,1)  variables  may  be  needed  for  precision. 

In  this  formulation,  we  consider  the  multiple  objective  case,  where  for  example,  our  criterion 
would  be  expected  number  of  deaths,  injuries,  and  pollution  incidents.  We  further  assume 
that  the  objectives  can  be  expressed  as  goals  or  targets  for  a  specified  time  period,  e.g.,  one 
budget  cycle,  or  5-year  planning  horizon.  Measuring  achievement  of  the  objective  are  the 
measures  of  effectiveness. 

Let  -  f  (Z^#*)  ^here  is  the  effectiveness  measure  for  the  nth  objective  (if  deaths. 


injuries  and  pollution  incidents  were  the  criterion,  n  =  1,  2,  3)  for  MSOj  for  time  period  k, 
and  A*  be  the  goal  or  target  for  this  planning  period  for  objective  n  and  MSOj. 

We  would  like  M  -  <  but  realize  that  this  result,  i.e.,  everything  matching  perfectly,  is 

at  best  a  goal  in  and  of  itself.  Therefore,  we  let  A*  be  a  goal  and  permit  over  and 
underachievement  of  the  goal  by  employing  deviation  variables  and  using  the  general 
formulation 

min  Z  =  ' 

ii-i 

where  Y^  =  d^),  d^,  d^  are  the  deviations  above  and  below  a  particular  goal,  in 

our  case,  Aj,  and  Wj  provide  the  capability  to  weight  over  and  under  deviation  from  the  goal 
differently,  as  well  as,  the  use  of  preemptive  weights  to  ensure  achievement  of  specified 
goals. 

The  formulation  can  make  use  of  existing  linear  programming  codes  (assuming  are 
continuous  variables  and  d^)  is  piece-wise  linear).  This  capability  permits  human 
judgement  and  experience  to  be  used  in  examining  effectiveness  measures  and  the 
establishment  of  activity  levels  at  MSOs.  Appropriate  tradeoffs  can  be  made  at  two  levels: 
(1)  among  the  set  of  effectiveness  measures;  and  (2)  within  effectiveness  measures  while 
allowing  for  the  multiobjective  nature  of  the  resource  allocation  process.  This  permits  a 
flexible  determination  of  weights.  A  starting  point  would  be  to  use  risk  rankings  by  port,  as 
determined  in  Section  3. 


APPENDIX  F:  Mathematical  Discussion  of  Resource  Allocation 


From  the  econometric  models,  we  can  estimate 

^(p»  f)~  expected  number  of  casualties  resulting  from  inspection  resources  p  invested 
inspecting  traffic  mix  t  =  (fj,  [where  tj  are  number  of  vessels  of 

characteristic  i] 

Note  f(p,f)  is  convex  in  p;  i.e. 

df 

is  monotonically  decreasing. 


Given  an  annual  traffic  forecast  for  vessels  arriving  at  MSO  k,  T^,  the  expected  number  of 
casualties,  if  p^  inspectors  are  assigned,  will  be 

Ck  (Pk)  =  f(Pk.  TJ. 

Assume  we  have  inspection  resources  P  to  allocate  across  MSOs.  Follow  the  procedure: 

From  P,  allocate  one  unit  to  MSO  x,  where  x  is  the  MSO  with  maximum 
marginal  benefit;  i.e. 


Max 

— X —  dp  jPy 


2.  Update  p,  with  this  additional  unit. 


This  will  result  in  a  decline  in 


3.  Return  to  step  1  until  P  is  exhausted;  i.e.  YPi  -  P- 

i  ' 


If  certain  MSOs  have  more  fragile  environmental  harbors,  a  weight  W.  can  be  assigned  so 
that 


W. 


is  compared^  rather  than 


